diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-29 12:40:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-29 12:40:21 +0000 |
| commit | 2b324bcfd116749f4966dd1948f0d9bf7b4a0033 (patch) | |
| tree | 10ed1be3212576c7ea8fadeb470fd8db36f0053b /src/interp/lisp-backend.boot | |
| parent | 3e326898dae226b97b4234ae45bf0eb2620176ec (diff) | |
| download | open-axiom-2b324bcfd116749f4966dd1948f0d9bf7b4a0033.tar.gz | |
Misc backend cleanup.
Diffstat (limited to 'src/interp/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 22 |
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 |