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; }