diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 99d44744..7fd58b82 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1893,50 +1893,6 @@ compMapCond''(cexpr,dc) == compMapCondFun(fnexpr,op,dc,bindings) == [fnexpr,bindings] ---% Interface to the backend - -compileFileQuietly path == - quietlyIfInteractive COMPILE_-FILE path - -compAndDefine l == - _*COMP370_-APPLY_* := "PRINT-AND-EVAL-DEFUN" - COMP l - -compQuietly fn == - _*COMP370_-APPLY_* := - $InteractiveMode => - $compileDontDefineFunctions => "COMPILE-DEFUN" - "EVAL-DEFUN" - "PRINT-DEFUN" - quietlyIfInteractive COMP fn - -compileQuietly fn == - _*COMP370_-APPLY_* := - $InteractiveMode => - $compileDontDefineFunctions => "COMPILE-DEFUN" - "EVAL-DEFUN" - "PRINT-DEFUN" - quietlyIfInteractive COMP370 fn - - -COMP l == - MAPCAR(function backendCompile2, MAPCAN(function COMP_-1,l)) - -COMP_-1 x == - fname := first x - $FUNNAME := fname - $FUNNAME__TAIL := [fname] - lamex := second x - $CLOSEDFNS := [] - 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 - FORMAT(true,'"~&~%;;; *** ~S REDEFINED~%",fname) - [[fname,lamex],:$CLOSEDFNS] - - --% Register compilers for special forms. -- Those compilers are on the `SPECIAL' property of the corresponding -- special form operator symbol. |