1 files changed, 8 insertions, 3 deletions

diff --git a/lib.c b/lib.c
index 0aedac3f..7e491c55 100644
--- a/lib.c
+++ b/lib.c
@@ -1929,15 +1929,20 @@ val make_sym(val name)
   return obj;
 }
 
-val gensymv(val args)
+val gensym(val prefix)
 {
-  uses_or2;
   gensym_counter = plus(gensym_counter, one);
-  val prefix = or2(car(args), lit("g"));
   val name = format(nil, lit("~a~,04a"), prefix, gensym_counter, nao);
   return make_sym(name);
 }
 
+val gensymv(val args)
+{
+  uses_or2;
+  val prefix = or2(car(args), lit("g"));
+  return gensym(prefix);
+}
+
 val make_package(val name)
 {
   if (find_package(name)) {