diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index a24b4539..404bbe9a 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1290,11 +1290,12 @@ clearReplacement name == ++ Register the inlinable form of a function. registerFunctionReplacement(name,body) == - LAM_,EVALANDFILEACTQ ["PUT",MKQ name,MKQ "SPADreplace",quoteMinimally body] + evalAndPrintBackendStmt + ["PUT",MKQ name,MKQ "SPADreplace",quoteMinimally body] ++ Remember the redex form of this function registerRedexForm(name,parms,body) == - LAM_,EVALANDFILEACTQ + evalAndPrintBackendStmt ["PUT",quote name,quote '%redex,quote ['ILAM,parms,body]] ++ Retrieve the redex form of the function `name'. @@ -1461,7 +1462,7 @@ setCompilerOptimizations level == ++ Note that all capsule functions take an additional argument ++ standing for the domain of computation object. proclaimCapsuleFunction(op,sig) == - LAM_,EVALANDFILEACTQ + printBackendStmt ["DECLAIM",["FTYPE", ["FUNCTION",[:[vmType first d for d in tails rest sig],"%Shell"], vmType first sig],op]] where |