aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-06-04 14:02:18 +0000
committerdos-reis <gdr@axiomatics.org>2010-06-04 14:02:18 +0000
commit69ad281c414918448007110d80e0e2971cfde6e4 (patch)
tree6743f5b552378e018be3ac4db3e697706e6636e9
parent45038d3f0e4b14e2c9a98171537707e6055a480b (diff)
downloadopen-axiom-69ad281c414918448007110d80e0e2971cfde6e4.tar.gz
* interp/compiler.boot: Replace QCAR first and QCDR first rest.
* interp/g-opt.boot: Likewise.
-rw-r--r--src/interp/compiler.boot2
-rw-r--r--src/interp/g-opt.boot12
2 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 467605ff..436b984c 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -1976,7 +1976,7 @@ compRetractGuard(x,t,sn,sm,e) ==
-- assignment here and let the rest of the compiler deal with it.
z := gensym()
caseCode := ["PROGN",["%LET",z,retractCode],['%ieq,['%head,z],0]]
- restrictCode := ["QCDR",z]
+ restrictCode := ["%tail",z]
-- 1.3. Everything else failed; nice try.
else return stackAndThrow('"%1bp is not retractable to %2bp",[sm,t])
-- 2. Now declare `x'.
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 249fbd1b..86fc6bc4 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -340,21 +340,21 @@ optSEQ ["SEQ",:l] ==
optRECORDELT ["RECORDELT",name,ind,len] ==
len=1 =>
- ind=0 => ["QCAR",name]
+ ind=0 => ["%head",name]
keyedSystemError("S2OO0002",[ind])
len=2 =>
- ind=0 => ["QCAR",name]
- ind=1 => ["QCDR",name]
+ ind=0 => ["%head",name]
+ ind=1 => ["%tail",name]
keyedSystemError("S2OO0002",[ind])
["QVELT",name,ind]
optSETRECORDELT ["SETRECORDELT",name,ind,len,expr] ==
len=1 =>
- ind=0 => ["PROGN",["RPLACA",name,expr],["QCAR",name]]
+ ind=0 => ["PROGN",["RPLACA",name,expr],["%head",name]]
keyedSystemError("S2OO0002",[ind])
len=2 =>
- ind=0 => ["PROGN",["RPLACA",name,expr],["QCAR",name]]
- ind=1 => ["PROGN",["RPLACD",name,expr],["QCDR",name]]
+ ind=0 => ["PROGN",["RPLACA",name,expr],["%head",name]]
+ ind=1 => ["PROGN",["RPLACD",name,expr],["%tail",name]]
keyedSystemError("S2OO0002",[ind])
["QSETVELT",name,ind,expr]