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/read.c | |
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/read.c')
-rw-r--r-- | libguile/read.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/libguile/read.c b/libguile/read.c index 676ccf753..3e739586a 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1385,29 +1385,10 @@ scm_read_sharp (scm_t_wchar chr, SCM port) case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '@': -#if SCM_ENABLE_DEPRECATED - /* See below for 'i' and 'e'. */ - case 'a': - case 'y': - case 'h': - case 'l': -#endif return (scm_i_read_array (port, chr)); case 'i': case 'e': -#if SCM_ENABLE_DEPRECATED - { - /* When next char is '(', it really is an old-style - uniform array. */ - scm_t_wchar next_c = scm_getc (port); - if (next_c != EOF) - scm_ungetc (next_c, port); - if (next_c == '(') - return scm_i_read_array (port, chr); - /* Fall through. */ - } -#endif case 'b': case 'B': case 'o': |