diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-02-11 23:01:34 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-02-11 23:08:53 +0100 |
commit | 4f6e6e4fb73e0f0a4c086500e065fdcc3426e6c7 (patch) | |
tree | a4de68495a3406420b325c0cc05df976ff25d9f4 | |
parent | 475461b7a02a5350af7cfb972826e155f3aab3c4 (diff) | |
download | guile-4f6e6e4fb73e0f0a4c086500e065fdcc3426e6c7.tar.gz |
Small cleanup relative to the use of double cells for subrs.
* libguile/procs.c (scm_c_make_subr): Remove comments about the number
of subrs, improve formatting.
* libguile/Makefile.am: Comment the generation of `snarf-gsubr.h'.
-rw-r--r-- | libguile/Makefile.am | 2 | ||||
-rw-r--r-- | libguile/procs.c | 8 |
2 files changed, 3 insertions, 7 deletions
diff --git a/libguile/Makefile.am b/libguile/Makefile.am index b2762e351..885de72c4 100644 --- a/libguile/Makefile.am +++ b/libguile/Makefile.am @@ -77,6 +77,8 @@ scmconfig.h: ${top_builddir}/config.h gen-scmconfig$(EXEEXT) rm -f scmconfig.h mv scmconfig.h.tmp scmconfig.h +# Generate aliases for `SCM_DEFINE_GSUBR'. Since there's a lot of +# them, it's an efficient compression method. snarf-gsubr.h: ( echo "/* Automatically generated, do not edit. */" ; \ for req in `seq 0 16`; do \ diff --git a/libguile/procs.c b/libguile/procs.c index 307be4380..f99b524d0 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -38,19 +38,13 @@ */ -/* libguile contained approx. 700 primitive procedures on 24 Aug 1999. */ - -/* Increased to 800 on 2001-05-07 -- Guile now has 779 primitives on - startup, 786 with guile-readline. 'martin */ - SCM scm_c_make_subr (const char *name, long type, SCM (*fcn) ()) { register SCM z; SCM *meta_info; - meta_info = scm_gc_malloc (2 * sizeof (* meta_info), - "subr meta-info"); + meta_info = scm_gc_malloc (2 * sizeof (*meta_info), "subr meta-info"); meta_info[0] = scm_from_locale_symbol (name); meta_info[1] = SCM_EOL; /* properties */ |