aboutsummaryrefslogtreecommitdiff
path: root/src/interp/interop.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r--src/interp/interop.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot
index 110c35c2..70c86661 100644
--- a/src/interp/interop.boot
+++ b/src/interp/interop.boot
@@ -438,7 +438,7 @@ hashNewLookupInTable(op,sig,dollar,[domain,opvec],flag) ==
formatOpSignature(op,subsumptionSig)]
nil
slot := domain.loc
- null atom slot =>
+ cons? slot =>
slot.op = 'newGoGet => someMatch:=true
--treat as if operation were not there
--if EQ(QCAR slot,'newGoGet) then