diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-13 11:07:24 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-13 11:07:24 +0000 |
commit | e2806c1000054f765c46bd14f8fb64a4d74d4eea (patch) | |
tree | 92ff61f63e724f41c946a22ed4944a67d304ade9 /libguile/mbstrings.c | |
parent | 1a80fb07a7658c8ba90dcda50d34547752469088 (diff) | |
download | guile-e2806c1000054f765c46bd14f8fb64a4d74d4eea.tar.gz |
* __scm.h, chars.c, debug.c, eval.c, eval.h, extchrs.c, extchrs.h,
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.)
Diffstat (limited to 'libguile/mbstrings.c')
-rw-r--r-- | libguile/mbstrings.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/mbstrings.c b/libguile/mbstrings.c index a6f5ea677..e6a992c18 100644 --- a/libguile/mbstrings.c +++ b/libguile/mbstrings.c @@ -193,7 +193,7 @@ scm_symbol_multi_byte_p (symbol) SCM symbol; #endif { - return SCM_SYMBOL_MULTI_BYTE_SCM_STRINGP(symbol); + return SCM_SYMBOL_MULTI_BYTE_STRINGP(symbol); } SCM_PROC(s_set_symbol_multi_byte_x, "set-symbol-multi-byte!", 2, 0, 0, scm_set_symbol_multi_byte_x); @@ -209,7 +209,7 @@ scm_set_symbol_multi_byte_x (symbol, val) { if (SCM_TYP7 (symbol) == scm_tc7_msymbol) { - SCM_SYMBOL_MULTI_BYTE_SCM_STRINGP(symbol) = (SCM_FALSEP (val) + SCM_SYMBOL_MULTI_BYTE_STRINGP(symbol) = (SCM_FALSEP (val) ? SCM_BOOL_F : SCM_BOOL_T); } |