mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* symbols.c (scm_gensym): Bugfix. (Thanks to Johannes Hjorth.)

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-07-08 05:55:34 +00:00
parent 544b923292
commit aea5b792f7
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/symbols.c
View file

@ -827,7 +827,8 @@ scm_gensym (name, obarray)
if (SCM_UNBNDP (name)) if (SCM_UNBNDP (name))
name = gensym_prefix; name = gensym_prefix;
else else
SCM_ASSERT (SCM_ROSTRINGP (name), name, SCM_ARG1, s_gensym); SCM_ASSERT (SCM_NIMP (name) && SCM_ROSTRINGP (name),
name, SCM_ARG1, s_gensym);
new = name; new = name;
if (SCM_UNBNDP (obarray)) if (SCM_UNBNDP (obarray))
{ {