aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 2d1f9151..46faf47b 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -168,7 +168,7 @@ optimizeFunctionDef(def) ==
resetTo(x,y) ==
atom y => x := y
- EQ(x,y) => x
+ sameObject?(x,y) => x
x.first := y.first
x.rest := y.rest
x