diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 404bbe9a..b8ec4c5f 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1535,7 +1535,8 @@ backendCompileSPADSLAM(name,args,body) == [true, ["PROGN",["SETQ",g2,app], ["SETQ",al,["cons5",["CONS",key,g2],al]],g2]]]] - SETANDFILE(al,nil) -- define the global cache. + -- define the global cache. + evalAndPrintBackendDecl(al,['DEFPARAMETER,al,nil]) assembleCode [auxfn,["LAMBDA",args,:body]] assembleCode [name,["LAMBDA",args,code]] @@ -1755,7 +1756,7 @@ compileFileQuietly path == ++ Subroutine of compileConstructor1. Called to compile the body ++ of a category constructor definition. compAndDefine l == - _*COMP370_-APPLY_* := "PRINT-AND-EVAL-DEFUN" + _*COMP370_-APPLY_* := function evalAndPrintBackendDecl backendCompile l $compileDontDefineFunctions := true |