diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 941aca5b..c141ab6e 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -38,12 +38,13 @@ import sys_-macros import nlib +import c_-util namespace BOOT module lisp_-backend where expandToVMForm: %Thing -> %Thing eval: %Thing -> %Thing - printBackendDecl: %Code -> %Void + printBackendStmt: (%Database,%Code) -> %Void transformToBackendCode: %Form -> %Code @@ -826,11 +827,9 @@ assembleCode x == else COMP370 x first x -printBackendDecl decl == - st := - sp := symbolAssoc('COMPILER_-OUTPUT_-STREAM,$compilerOptions) => rest sp - $OutputStream - PRINT_-FULL(decl,st) +printBackendStmt(db,stmt) == + st := dbCodeStream db + PRINT_-FULL(stmt,st) flushOutput st ++ Replace every middle end sub-forms in `x' with Lisp code. |