aboutsummaryrefslogtreecommitdiff
path: root/src/interp/lisp-backend.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r--src/interp/lisp-backend.boot22
1 files changed, 2 insertions, 20 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 1bb39713..db970d90 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -43,10 +43,7 @@ namespace BOOT
module lisp_-backend where
expandToVMForm: %Thing -> %Thing
eval: %Thing -> %Thing
- printBackendStmt: %Code -> %Void
printBackendDecl: (%Symbol,%Code) -> %Void
- evalAndPrintBackendStmt: %Code -> %Void
- evalAndPrintBackendDecl: (%Symbol,%Code) -> %Void
transformToBackendCode: %Form -> %Code
@@ -830,27 +827,12 @@ assembleCode x ==
else COMP370 x
first x
-printBackendStmt stmt ==
- printBackendDecl(nil,stmt)
-
-evalAndPrintBackendStmt stmt ==
- eval stmt
- printBackendStmt stmt
-
printBackendDecl(label,decl) ==
st :=
sp := symbolAssoc('COMPILER_-OUTPUT_-STREAM,$compilerOptions) => rest sp
$OutputStream
- if label ~= nil and ioTerminal? st and functionSymbol? label
- and not COMPILED_-FUNCTION_-P symbolFunction label then
- COMPILE label
- if $PrettyPrint or not ioTerminal? st then
- PRINT_-FULL(decl,st)
- flushOutput st
-
-evalAndPrintBackendDecl(label,decl) ==
- eval decl
- printBackendDecl(label,decl)
+ PRINT_-FULL(decl,st)
+ flushOutput st
++ Replace every middle end sub-forms in `x' with Lisp code.
massageBackendCode: %Code -> %Void