aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-util.boot')
-rw-r--r--src/interp/i-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot
index 2fc2ab61..1c125f9e 100644
--- a/src/interp/i-util.boot
+++ b/src/interp/i-util.boot
@@ -129,7 +129,7 @@ Undef(:u) ==
u':= LAST u
[[domain,slot],op,sig]:= u'
domain':=eval mkEvalable domain
- ^EQ(CAR ELT(domain',slot), function Undef) =>
+ not EQ(CAR ELT(domain',slot), function Undef) =>
-- OK - thefunction is now defined
[:u'',.]:=u
if $reportBottomUpFlag then