diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/i-output.boot.pamphlet | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index ac77f0e0..cdadb04c 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,7 @@ +2007-09-13 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * i-output.boot.pamphlet (exptNeedsPren): Use GETL, not GET. + 2007-09-12 Gabriel Dos Reis <gdr@cs.tamu.edu> * posit.boot: New. Import sys-macros, astr. 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 |