summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-02-11 23:01:34 +0100
committerLudovic Courtès <ludo@gnu.org>2009-02-11 23:08:53 +0100
commit4f6e6e4fb73e0f0a4c086500e065fdcc3426e6c7 (patch)
treea4de68495a3406420b325c0cc05df976ff25d9f4
parent475461b7a02a5350af7cfb972826e155f3aab3c4 (diff)
downloadguile-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.am2
-rw-r--r--libguile/procs.c8
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 */