diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-05-12 14:01:26 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-05-12 14:01:26 +0200 |
| commit | fc7bd367ab4b5027a7f80686b1e229c62e43c90b (patch) | |
| tree | 0ff3275d1af3f78702c25b98c9240e3a81f4be0f /libguile/tags.h | |
| parent | 7fbea320fb03be945e2f34ed06667f0e000563a6 (diff) | |
| download | guile-fc7bd367ab4b5027a7f80686b1e229c62e43c90b.tar.gz | |
remove all deprecated code
* libguile/async.c:
* libguile/async.h:
* libguile/debug.h:
* libguile/deprecated.c:
* libguile/deprecated.h:
* libguile/evalext.h:
* libguile/gc-malloc.c:
* libguile/gc.h:
* libguile/gen-scmconfig.c:
* libguile/numbers.c:
* libguile/ports.c:
* libguile/ports.h:
* libguile/procprop.c:
* libguile/procprop.h:
* libguile/read.c:
* libguile/socket.c:
* libguile/srfi-4.h:
* libguile/strings.c:
* libguile/strings.h:
* libguile/tags.h:
* module/ice-9/boot-9.scm:
* module/ice-9/deprecated.scm: Remove all deprecated code. CPP defines
that were not previously issuing warnings were changed so that their
expansions would indicate the replacement forms to use,
e.g. scm_sizet__GONE__REPLACE_WITH__size_t.
The two exceptions were SCM_LISTN, which did not produce warnings
before, and the string-filter argument order stuff.
Drops the initial dirty memory usage of Guile down to 2.8 MB on my
machine, from 4.4 MB.
Diffstat (limited to 'libguile/tags.h')
| -rw-r--r-- | libguile/tags.h | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/libguile/tags.h b/libguile/tags.h index 39d2eaae1..916984262 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -3,7 +3,7 @@ #ifndef SCM_TAGS_H #define SCM_TAGS_H -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010 +/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011 * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -652,13 +652,6 @@ enum scm_tc8_tags -#if (SCM_ENABLE_DEPRECATED == 1) - -#define SCM_CELLP(x) (((sizeof (scm_t_cell) - 1) & SCM_UNPACK (x)) == 0) -#define SCM_NCELLP(x) (!SCM_CELLP (x)) - -#endif - #endif /* SCM_TAGS_H */ /* |