aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-util.boot.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-util.boot.pamphlet')
-rw-r--r--src/interp/i-util.boot.pamphlet5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/i-util.boot.pamphlet b/src/interp/i-util.boot.pamphlet
index 899cc18f..3539c195 100644
--- a/src/interp/i-util.boot.pamphlet
+++ b/src/interp/i-util.boot.pamphlet
@@ -58,6 +58,9 @@ lisp code is unwrapped.
<<*>>=
<<license>>
+import '"g-util"
+)package "BOOT"
+
--% The function for making prompts
spadPrompt() ==
@@ -145,7 +148,7 @@ Undef(:u) ==
u':= LAST u
[[domain,slot],op,sig]:= u'
domain':=eval mkEvalable domain
- ^EQ(CAR ELT(domain',slot),Undef) =>
+ ^EQ(CAR ELT(domain',slot), function Undef) =>
-- OK - thefunction is now defined
[:u'',.]:=u
if $reportBottomUpFlag then