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 /src/interp/compiler.boot | |
| parent | 45038d3f0e4b14e2c9a98171537707e6055a480b (diff) | |
| download | open-axiom-69ad281c414918448007110d80e0e2971cfde6e4.tar.gz | |
* interp/compiler.boot: Replace QCAR first and QCDR first rest.
* interp/g-opt.boot: Likewise.
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'. |