aboutsummaryrefslogtreecommitdiff
path: root/src/interp/buildom.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/buildom.boot')
-rw-r--r--src/interp/buildom.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot
index bc417364..34e16794 100644
--- a/src/interp/buildom.boot
+++ b/src/interp/buildom.boot
@@ -109,7 +109,7 @@ Record(:args) ==
RecordEqual(x,y,dom) ==
nargs := #rest(dom.0)
- PAIRP x =>
+ CONSP x =>
b:=
SPADCALL(first x, first y, first(dom.(nargs + 9)) or
first RPLACA(dom.(nargs + 9),findEqualFun(dom.$FirstParamSlot)))