diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-30 13:30:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-30 13:30:19 +0000 |
commit | fcc96dd42a7374ad2fb44b16fa7198df4aeec8b8 (patch) | |
tree | ecd05082b6af229875208c51f69de3b7fe2b1a6c /src/interp/lisp-backend.boot | |
parent | 13aab01d2e79671ac648645ff1c32ddf23d7947e (diff) | |
download | open-axiom-fcc96dd42a7374ad2fb44b16fa7198df4aeec8b8.tar.gz |
Change backend code emitters to take a %Libname parameter
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r-- | src/interp/lisp-backend.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index c141ab6e..a2d89607 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -44,7 +44,7 @@ namespace BOOT module lisp_-backend where expandToVMForm: %Thing -> %Thing eval: %Thing -> %Thing - printBackendStmt: (%Database,%Code) -> %Void + printBackendStmt: (%Libstream,%Code) -> %Void transformToBackendCode: %Form -> %Code @@ -827,8 +827,8 @@ assembleCode x == else COMP370 x first x -printBackendStmt(db,stmt) == - st := dbCodeStream db +printBackendStmt(lib,stmt) == + st := libCodeStream lib PRINT_-FULL(stmt,st) flushOutput st |