From 77a6036bd17a52c8e76d08be50e98e9cbbf24d45 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 28 Feb 1997 23:10:00 +0000 Subject: [PATCH] * symbols.c (msymbolize): Bugfix: Must initialize property list to SCM_EOL. --- libguile/ChangeLog | 5 ++++- libguile/symbols.c | 1 + 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 8c26f73eb..1e7fd13f1 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,4 +1,7 @@ -Fri Feb 28 22:12:25 1997 Mikael Djurfeldt +Sat Mar 1 00:09:15 1997 Mikael Djurfeldt + + * symbols.c (msymbolize): Bugfix: Must initialize property list to + SCM_EOL. * procs.c: Introduce the existent C function scm_thunk_p at the Scheme level as well. diff --git a/libguile/symbols.c b/libguile/symbols.c index 73b27fbbf..d8da8d5b8 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -691,6 +691,7 @@ msymbolize (s) SCM_SYMBOL_MULTI_BYTE_STRINGP (s) = SCM_BOOL_F; SCM_SETCDR (string, SCM_EOL); SCM_SETCAR (string, SCM_EOL); + SCM_SYMBOL_PROPS (s) = SCM_EOL; }