diff options
author | dos-reis <gdr@axiomatics.org> | 2008-10-12 18:54:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-10-12 18:54:14 +0000 |
commit | 2d38f7a6dabbe4265c263722573a03802e8aa58c (patch) | |
tree | f41bc24117260cb2663baa3accbe23f61556c71e /src/interp/compiler.boot | |
parent | 8968a58f48c6d75ccdc73c086687f63d18c9fec7 (diff) | |
download | open-axiom-2d38f7a6dabbe4265c263722573a03802e8aa58c.tar.gz |
* interp/c-util.boot (backendCompileNEWNAM): New.
(pushLocalVariable): Likewise.
(mutateToBackendCode): Likewise.
(transformToBackendCode): Likewise
* interp/comp.lisp (FLUIDVARS): Remove.
(LOCVARS): Likewise.
(SPECIALVARS): Likewise.
($CLOSEDFNS): Likewise.
(COMP-NAM): Likewise.
(COMP-TRAN): Likewise.
(COMP-TRAN-1): Likewise.
* interp/compiler.boot (compWithMappingMode): Use
transformToBackendCode.
(COMP-1): Use backendCompileNEWNAM.
* interp/i-analy.boot (bottomUpCompile): Use mutateToBackendCode.
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index dc5f1211..99d44744 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -277,7 +277,7 @@ compWithMappingMode(x,m is ["Mapping",m',:sl],oldE) == -- pass this as the environment to our inner function. $FUNNAME :local := nil $FUNNAME__TAIL :local := [nil] - expandedFunction:=COMP_-TRAN CADR uu + expandedFunction:= transformToBackendCode second uu frees:=FreeList(expandedFunction,vl,nil,e) where FreeList(u,bound,free,e) == atom u => @@ -1928,8 +1928,8 @@ COMP_-1 x == $FUNNAME__TAIL := [fname] lamex := second x $CLOSEDFNS := [] - lamex := COMP_-TRAN lamex - COMP_-NEWNAM lamex + lamex := transformToBackendCode lamex + backendCompileNEWNAM lamex -- Note that category constructors are evaluated before they -- their compiled, so this noise is not very helpful. if $verbose and FBOUNDP fname then |