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

* Don't use string or vector macros when accessing compiled closures.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-26 20:11:22 +00:00
parent 9eb364fccb
commit 74cc85038e
5 changed files with 42 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/procs.c
View file

@ -153,14 +153,18 @@ scm_mark_subr_table ()
SCM
scm_makcclo (SCM proc, long len)
{
scm_bits_t *base = scm_must_malloc (len * sizeof (scm_bits_t), "compiled-closure");
unsigned long i;
SCM s;
for (i = 0; i < len; ++i)
base [i] = SCM_UNPACK (SCM_UNSPECIFIED);
SCM_NEWCELL (s);
SCM_DEFER_INTS;
SCM_SETCHARS (s, scm_must_malloc (len * sizeof (SCM), "compiled-closure"));
SCM_SETLENGTH (s, len, scm_tc7_cclo);
while (--len)
SCM_VELTS (s)[len] = SCM_UNSPECIFIED;
SCM_CCLO_SUBR (s) = proc;
SCM_SET_CCLO_BASE (s, base);
SCM_SET_CCLO_LENGTH (s, len);
SCM_SET_CCLO_SUBR (s, proc);
SCM_ALLOW_INTS;
return s;
}