mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 06:20:30 +02:00
Code Activity

Small cleanup relative to the use of double cells for subrs.

Browse source 
* 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'.
This commit is contained in:
Ludovic Courtès 2009-02-11 23:01:34 +01:00
parent 475461b7a0
commit 4f6e6e4fb7
2 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/Makefile.am
View file

@ -77,6 +77,8 @@ scmconfig.h: ${top_builddir}/config.h gen-scmconfig$(EXEEXT)
rm -f scmconfig.h rm -f scmconfig.h
mv scmconfig.h.tmp 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: snarf-gsubr.h:
( echo "/* Automatically generated, do not edit. */" ; \ ( echo "/* Automatically generated, do not edit. */" ; \
for req in `seq 0 16`; do \ for req in `seq 0 16`; do \

8
libguile/procs.c
View file

@ -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
scm_c_make_subr (const char *name, long type, SCM (*fcn) ()) scm_c_make_subr (const char *name, long type, SCM (*fcn) ())
{ {
register SCM z; register SCM z;
SCM *meta_info; SCM *meta_info;
meta_info = scm_gc_malloc (2 * sizeof (* meta_info), meta_info = scm_gc_malloc (2 * sizeof (*meta_info), "subr meta-info");
"subr meta-info");
meta_info[0] = scm_from_locale_symbol (name); meta_info[0] = scm_from_locale_symbol (name);
meta_info[1] = SCM_EOL; /* properties */ meta_info[1] = SCM_EOL; /* properties */