diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-21 01:20:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-21 01:20:25 +0000 |
| commit | a2d6a4d6c6355aca142008543cc78e4139d97576 (patch) | |
| tree | e4124ade231d090bcb25bfcb8ba8d02b0fdbbb5f /src/interp/c-util.boot | |
| parent | c707a9c63ad286a9492be7f2145d8b688ddf61d5 (diff) | |
| download | open-axiom-a2d6a4d6c6355aca142008543cc78e4139d97576.tar.gz | |
* interp/vmlisp.lisp (EVALANDFILEACTQ): Second argument is no
longer optional. Adjust callers.
(LAM\,EVALANDFILEACTQ): Likewise.
* interp/slam.boot (compQuietly): Use printBackendDecl.
* interp/spad.lisp (SPAD): Likewise.
* interp/sys-utility.boot (PRINT-AND-EVAL-DEFUN): Likewise.
* interp/macros.lisp (SETANDFILE): Move to vmlisp.lisp.
* interp/lisp-backend.boot (printBackendStmt): New.
(evalAndPrintBackendStmt): Likewise.
(printBackendDecl): Likewise.
* interp/c-util.boot (registerFunctionReplacement): Use
evalAndPrintBackendStmt.
(registerRedexForm): Likewise.
(proclaimCapsuleFunction): Use printBackendStmt.
* interp/Makefile.in (lisp-backend.$(FASLEXT)): Require nlib.$(FASLEXT)
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 |