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

* __scm.h, chars.c, debug.c, eval.c, eval.h, extchrs.c, extchrs.h,

Browse source 
fdsocket.c, feature.c, mbstrings.c, mbstrings.h, numbers.c,
numbers.h, print.c, scmhob.h, simpos.h, symbols.c, symbols.h,
tags.h, throw.c, variable.h: Name cleanup.  Lots of xxxSCM_yyy
removed.  (These were introduced by unsupervised name
substitution.)
This commit is contained in:
Mikael Djurfeldt 1996-09-13 13:31:50 +00:00
parent e2806c1000
commit 08b5b88cdf
9 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/print.c
View file

@ -225,7 +225,7 @@ taloop:
}
else if (SCM_IFLAGP (exp)
&& (SCM_ISYMNUM (exp) < (sizeof scm_isymnames / sizeof (char *))))
scm_gen_puts (scm_regular_string, SCM_ISYMSCM_CHARS (exp), port);
scm_gen_puts (scm_regular_string, SCM_ISYMCHARS (exp), port);
else if (SCM_ILOCP (exp))
{
scm_gen_puts (scm_regular_string, "#@", port);
@ -296,7 +296,7 @@ taloop:
{
SCM code = SCM_CODE (exp);
exp = scm_unmemocopy (code,
SCM_EXTEND_SCM_ENV (SCM_CAR (code),
SCM_EXTEND_ENV (SCM_CAR (code),
SCM_EOL,
SCM_ENV (exp)));
scm_iprlist ("#<CLOSURE ", exp, '>', port, writing);