diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-26 18:37:26 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-26 18:37:26 +0000 |
commit | a002f1a2cbdc39b2a52e6d1e100791f106fd34bb (patch) | |
tree | 010fa4a66fb57c2702970936f843d138b49c0d80 /libguile/print.c | |
parent | 1660782ecfdb3a7eb3a17dea314e383749ddf538 (diff) | |
download | guile-a002f1a2cbdc39b2a52e6d1e100791f106fd34bb.tar.gz |
* Replaced a lot of references to SCM_CHARS.
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/print.c b/libguile/print.c index bcbb1fe32..499f44760 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -47,6 +47,7 @@ #include <stdio.h> #include "libguile/_scm.h" #include "libguile/chars.h" +#include "libguile/continuations.h" #include "libguile/smob.h" #include "libguile/eval.h" #include "libguile/macros.h" @@ -620,7 +621,7 @@ taloop: ? "#<primitive-generic " : "#<primitive-procedure ", port); - scm_puts (SCM_CHARS (SCM_SNAME (exp)), port); + scm_puts (SCM_SYMBOL_CHARS (SCM_SNAME (exp)), port); scm_putc ('>', port); break; #ifdef CCLO @@ -635,7 +636,7 @@ taloop: if (SCM_NFALSEP (name)) { scm_putc (' ', port); - scm_puts (SCM_CHARS (name), port); + scm_puts (SCM_SYMBOL_CHARS (name), port); } } else @@ -663,7 +664,7 @@ taloop: scm_puts ("#<continuation ", port); scm_intprint (SCM_LENGTH (exp), 10, port); scm_puts (" @ ", port); - scm_intprint ((long) SCM_CHARS (exp), 16, port); + scm_intprint ((long) SCM_CONTREGS (exp), 16, port); scm_putc ('>', port); break; case scm_tc7_port: |