diff options
| -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] |