all subrs are gsubrs

[bpt/guile.git] / libguile / macros.c

diff --git a/libguile/macros.c b/libguile/macros.c
index 970a41d..d7c054e 100644 (file)
--- a/libguile/macros.c
+++ b/libguile/macros.c
@@ -312,7 +312,7 @@ SCM
 scm_make_synt (const char *name, SCM (*macroizer) (), SCM (*fcn)() )
 {
   SCM var = scm_c_define (name, SCM_UNDEFINED);
-  SCM transformer = scm_c_make_subr (name, scm_tc7_subr_2, fcn);
+  SCM transformer = scm_c_make_gsubr (name, 2, 0, 0, fcn);
   SCM_VARIABLE_SET (var, macroizer (transformer));
   return SCM_UNSPECIFIED;
 }