diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-14 21:17:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-14 21:17:18 +0000 |
commit | a97a8e2cbc7d6c86f79a5465cba20212deff66c9 (patch) | |
tree | 5f0b1963e418af41b54cf4fea0ff6a4bc8b48762 /src/interp/ht-util.boot | |
parent | 99e0f1d94fc9b0326b2b1e3afc6b17708304eadb (diff) | |
download | open-axiom-a97a8e2cbc7d6c86f79a5465cba20212deff66c9.tar.gz |
* interp/c-util.boot (cleanParameterList!): New.
* interp/define.boot (spadCompileOrSetq): Use it.
Diffstat (limited to 'src/interp/ht-util.boot')
-rw-r--r-- | src/interp/ht-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index fcc9b2f5..1d8b75f2 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -286,7 +286,7 @@ htLispMemoLinks(links) == htLispLinks(links,true) beforeAfter(x,u) == [[y for [y,:r] in tails u while x ~= y],r] mkCurryFun(fun, val) == - name := GENTEMP() + name := gensym() code := ['DEFUN, name, '(arg), ['APPLY, MKQ fun, ['CONS, 'arg, MKQ val]]] eval code @@ -295,7 +295,7 @@ mkCurryFun(fun, val) == htRadioButtons [groupName, :buttons] == htpSetRadioButtonAlist($curPage, [[groupName, :buttonNames buttons], : htpRadioButtonAlist $curPage]) - boxesName := GENTEMP() + boxesName := gensym() iht ['"\newline\indent{5}\radioboxes{", boxesName, '"}{\htbmfile{pick}}{\htbmfile{unpick}}\beginitems "] defaultValue := '"1" @@ -313,7 +313,7 @@ htRadioButtons [groupName, :buttons] == htBcRadioButtons [groupName, :buttons] == htpSetRadioButtonAlist($curPage, [[groupName, :buttonNames buttons], : htpRadioButtonAlist $curPage]) - boxesName := GENTEMP() + boxesName := gensym() iht ['"\radioboxes{", boxesName, '"}{\htbmfile{pick}}{\htbmfile{unpick}} "] defaultValue := '"1" |