diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
| commit | 86d31dfe7d0754b863863f6544c75097ef68fe8c (patch) | |
| tree | 0f78f9d3ace802b80422dcedea25098cf901d05a /libguile/macros.c | |
| parent | 7c33806ae676601f902dbdc0f39c1f0828d68951 (diff) | |
Merge from mvo-vcell-cleanup-1-branch.
Diffstat (limited to 'libguile/macros.c')
| -rw-r--r-- | libguile/macros.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/macros.c b/libguile/macros.c index 734cd6d5d..79618bd12 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -220,10 +220,10 @@ SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0, SCM scm_make_synt (const char *name, SCM (*macroizer) (), SCM (*fcn)() ) { - SCM symcell = scm_sysintern (name, SCM_UNDEFINED); + SCM var = scm_c_define (name, SCM_UNDEFINED); SCM transformer = scm_make_subr_opt (name, scm_tc7_subr_2, fcn, 0); - SCM_SETCDR (symcell, macroizer (transformer)); - return SCM_CAR (symcell); + SCM_VARIABLE_SET (var, macroizer (transformer)); + return SCM_UNSPECIFIED; } void |