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

* symbols.c (scm_gensym): Bugfixed my previous bugfix. (Thanks to

Browse source 
Dale P. Smith.)
This commit is contained in:
Mikael Djurfeldt 2000-09-10 19:10:10 +00:00
parent 3cbe8373d3
commit c64d02c59a
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/symbols.c
View file

@ -857,11 +857,13 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 2, 0,
{ {
SCM new; SCM new;
if (SCM_UNBNDP (name)) if (SCM_UNBNDP (name))
name = gensym_prefix; new = gensym_prefix;
else else
{
SCM_VALIDATE_SYMBOL (1, name); SCM_VALIDATE_SYMBOL (1, name);
new = scm_symbol_to_string (name);
}
new = name;
if (SCM_UNBNDP (obarray)) if (SCM_UNBNDP (obarray))
{ {
obarray = SCM_BOOL_F; obarray = SCM_BOOL_F;