mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

Again, SCM/scm_bits_t mixup fixes.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-19 11:32:05 +00:00
parent 3201d76356
commit 9e882eeca8
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/print.c
View file

@ -398,7 +398,7 @@ taloop:
name = scm_macro_name (exp);
if (!SCM_CLOSUREP (SCM_CDR (exp)))
{
code = env = 0;
code = env = SCM_UNDEFINED;
scm_puts ("#<primitive-", port);
}
else
@ -427,7 +427,7 @@ taloop:
scm_putc (' ', port);
scm_puts (SCM_ROCHARS (name), port);
}
if (code)
if (!SCM_UNBNDP (code))
{
if (SCM_PRINT_SOURCE_P)
{