aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-13 10:54:18 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-13 10:54:18 +0000
commit3b5bfc6d56f8cbd020d963622ce9ab6160ee049f (patch)
tree071fe6e00676bb4b0fba3d5c8cc6d3fe905a90d6 /src
parent09bdc192490ae7e9aaf9c87aa4cf636a2afe9d45 (diff)
downloadopen-axiom-3b5bfc6d56f8cbd020d963622ce9ab6160ee049f.tar.gz
* i-output.boot.pamphlet (exptNeedsPren): Use GETL, not GET.
Diffstat (limited to 'src')
-rw-r--r--src/interp/ChangeLog4
-rw-r--r--src/interp/i-output.boot.pamphlet2
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