diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-05 00:45:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-05 00:45:29 +0000 |
| commit | 08ba464573978a0bded6932d00770890f6b9a349 (patch) | |
| tree | 2e6917ee95fe54c2c9bd4aef1f2fb106775ea443 /src/interp/compiler.boot | |
| parent | c4abad6da39c2c2d064b8d4e5c7210cf51ce7afc (diff) | |
| download | open-axiom-08ba464573978a0bded6932d00770890f6b9a349.tar.gz | |
More cleanup
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 436b984c..485b40e1 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -625,7 +625,7 @@ compFormWithModemap(form,m,e,modemap) == (c1 is [":",=(second argl),=m] or EQ(c1,second argl) ) => -- first is a full tag, as placed by getInverseEnvironment -- second is what getSuccessEnvironment will place there - ["CDR",z] + ['%tail,z] ["%Call",:form'] e':= Tl => (LAST Tl).env @@ -2000,7 +2000,7 @@ compRecoverDomain(x,t,sn,e) == [.,.,e] := compMakeDeclaration(x,t,e) or return nil e := put(x,"value",[genSomeVariable(),t,$noEnv],e) -- 3. Assemble the result - [caseCode,[[x,["CDR",sn]]],e,originalEnv] + [caseCode,[[x,['%tail,sn]]],e,originalEnv] ++ Subroutine of compAlternativeGuardItem, responsible for ++ compiling a guad item of the form |