diff options
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)] |