diff options
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index d771739b..57f518f1 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -616,12 +616,12 @@ EqualBarGensym(x,y) == fn(x,y) where fn(x,y) == x=y => true - GENSYMP x and GENSYMP y => + gensym? x and gensym? y => z:= assoc(x,$GensymAssoc) => y=rest z $GensymAssoc:= [[x,:y],:$GensymAssoc] true - null x => y is [g] and GENSYMP g - null y => x is [g] and GENSYMP g + null x => y is [g] and gensym? g + null y => x is [g] and gensym? g x isnt [.,:.] or y isnt [.,:.] => false fn(first x,first y) and fn(rest x,rest y) |