From 40cf26fa17e090f342e44d4008013e65f0e81190 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 17 Feb 2014 20:35:18 -0800 Subject: * 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*. --- lib.c | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'lib.c') 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)) { -- cgit v1.2.3