diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-23 19:31:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-23 19:31:23 +0000 |
| commit | adae08d08eb4bc36aee21b26073071756d920108 (patch) | |
| tree | eaa339c181f9b75219d9d0050fc4253370732ec8 /src/interp/nrunopt.boot | |
| parent | c1552b8106125bc8209d4ea6635198f05b2e1e08 (diff) | |
| download | open-axiom-adae08d08eb4bc36aee21b26073071756d920108.tar.gz | |
* boot/tokens.boot: gensym is now candidate for renaming.
* boot/ast.boot: Replace GENSYM with gensym.
* interp/buildom.boot: Likewise.
* interp/clam.boot: Likewise.
* interp/clammed.boot: Likewise.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/i-coerce.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/macex.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/parse.boot: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/postpar.boot: Likewise.
* interp/ptrees.boot: Likewise.
* interp/server.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/sys-constants.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/nrunopt.boot')
| -rw-r--r-- | src/interp/nrunopt.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot index b7997fc3..e584bdf3 100644 --- a/src/interp/nrunopt.boot +++ b/src/interp/nrunopt.boot @@ -320,9 +320,9 @@ orderByContainment pl == for x in rest pl repeat if (y := CONTAINED(max,x)) then if null assoc(max,$predGensymAlist) - then $predGensymAlist := [[max,:GENSYM()],:$predGensymAlist] + then $predGensymAlist := [[max,:gensym()],:$predGensymAlist] else if CONTAINED(x,max) - then if null assoc(x,$predGensymAlist) then $predGensymAlist := [[x,:GENSYM()],:$predGensymAlist] + then if null assoc(x,$predGensymAlist) then $predGensymAlist := [[x,:gensym()],:$predGensymAlist] if y then max := x [max,:orderByContainment delete(max,pl)] |