* eval.c (eval_init): Register gensym function as the gensym

intrinsic, rather than gensymv.
Register gensym_counter as *gensym-counter*.

* lib.c (gensym): Handle missing prefix argument by defaulting
the prefix to "g".
(gensymv): Function removed.

* lib.h (gensymv): Declaration removed.

* txr.1: Fixed omission: missing documentation for gensym.
Documented *gensym-counter*.

1 files changed, 1 insertions, 7 deletions

diff --git a/lib.c b/lib.c
index b1e8b39f..e74d2a6d 100644
--- a/lib.c
+++ b/lib.c
@@ -2703,18 +2703,12 @@ val make_sym(val name)
 
 val gensym(val prefix)
 {
+  prefix = default_arg(prefix, lit("g"));
   val name = format(nil, lit("~a~,04a"), prefix,
                     gensym_counter = plus(gensym_counter, one), 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)) {