diff options
-rw-r--r-- | libguile/print.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/print.c b/libguile/print.c index 90411b371..5a34f6001 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -356,7 +356,7 @@ taloop: name = scm_macro_name (exp); if (!SCM_CLOSUREP (SCM_CDR (exp))) { - code = 0; + code = env = 0; scm_gen_puts (scm_regular_string, "#<primitive-", port); } |