summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/print.c2
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);
}