diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-04 14:02:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-04 14:02:18 +0000 |
| commit | 69ad281c414918448007110d80e0e2971cfde6e4 (patch) | |
| tree | 6743f5b552378e018be3ac4db3e697706e6636e9 | |
| parent | 45038d3f0e4b14e2c9a98171537707e6055a480b (diff) | |
| download | open-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.boot | 2 | ||||
| -rw-r--r-- | src/interp/g-opt.boot | 12 |
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] |