mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

* macros.c (scm_make_synt): Use scm_make_subr_opt to make the

Browse source 
transformer subr.  (Thanks to Bill Schottstaedt.)
This commit is contained in:
Mikael Djurfeldt 1999-12-21 21:31:50 +00:00
parent 1e08802b50
commit 26cfa3befe
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/macros.c
View file

@ -146,14 +146,8 @@ SCM
scm_make_synt (const char *name, SCM (*macroizer) (), SCM (*fcn)() ) scm_make_synt (const char *name, SCM (*macroizer) (), SCM (*fcn)() )
{ {
SCM symcell = scm_sysintern (name, SCM_UNDEFINED); SCM symcell = scm_sysintern (name, SCM_UNDEFINED);
long tmp = ((((SCM_CELLPTR) (SCM_CAR (symcell))) - scm_heap_org) << 8); SCM transformer = scm_make_subr_opt (name, scm_tc7_subr_2, fcn, 0);
register SCM z; SCM_SETCDR (symcell, macroizer (transformer));
if ((tmp >> 8) != ((SCM_CELLPTR) (SCM_CAR (symcell)) - scm_heap_org))
tmp = 0;
SCM_NEWCELL (z);
SCM_SUBRF (z) = fcn;
SCM_SETCAR (z, tmp + scm_tc7_subr_2);
SCM_SETCDR (symcell, macroizer (z));
return SCM_CAR (symcell); return SCM_CAR (symcell);
} }