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

2000-09-05 Mikael Djurfeldt <mdj@linnaeus.mit.edu>

Browse source 
* symbols.c (scm_gensym): Check that argument is a symbol, not a
	string.  (Thanks to rm@mamma.varadinet.de.)
This commit is contained in:
Mikael Djurfeldt 2000-09-06 14:45:59 +00:00
parent f0cb87877e
commit d70d2c1e76
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/symbols.c
View file

@ -859,7 +859,7 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 2, 0,
if (SCM_UNBNDP (name))
name = gensym_prefix;
else
SCM_VALIDATE_ROSTRING (1,name);
SCM_VALIDATE_SYMBOL (1, name);
new = name;
if (SCM_UNBNDP (obarray))