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

	* symbols.c (scm_gensym): Check that argument is a symbol, not a
	string.  (Thanks to rm@mamma.varadinet.de.)

diff --git a/libguile/symbols.c b/libguile/symbols.c
index 919f806..83136ae 100644 (file)
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -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))