From 4f6e6e4fb73e0f0a4c086500e065fdcc3426e6c7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 11 Feb 2009 23:01:34 +0100 Subject: [PATCH] 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'. --- libguile/Makefile.am | 2 ++ 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 */