diff options
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 12 |
1 files changed, 6 insertions, 6 deletions
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] |