diff options
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 2 |
1 files changed, 1 insertions, 1 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'. |