aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-output.boot.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-output.boot.pamphlet')
-rw-r--r--src/interp/i-output.boot.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot.pamphlet b/src/interp/i-output.boot.pamphlet
index 431d0b63..f711ea18 100644
--- a/src/interp/i-output.boot.pamphlet
+++ b/src/interp/i-output.boot.pamphlet
@@ -713,7 +713,7 @@ exptNeedsPren a ==
atom a and null (INTEGERP a and a < 0) => false
key:= keyp a
key = "OVER" => true -- added JHD 2/Aug/90
- (key="SUB") or (null GET(key,"Nud") and null GET(key,"Led")) => false
+ (key="SUB") or (null GETL(key,"Nud") and null GETL(key,"Led")) => false
true
exptSub u == subspan CADR u