diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-23 22:44:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-23 22:44:32 +0000 |
| commit | 695a6c656681918abe4b20e04470dd266b4f6bbe (patch) | |
| tree | e5efcaefebf2d89118a8a00a9e11ba5547826fe3 /src/boot/strap/translator.clisp | |
| parent | c3b3651a804ebbdf40b3b59490d62ac63e3bf233 (diff) | |
| download | open-axiom-695a6c656681918abe4b20e04470dd266b4f6bbe.tar.gz | |
* boot/ast.boot: Tidy.
* boot/includer.boot: Likewise.
* boot/parser.boot: Likewise.
* boot/pile.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/tokens.boot: Likewise.
* boot/translator.boot: Likewise.
* boot/strap: Update Lisp translation.
* lisp/core.lisp.in: Tidy.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index d2675cea..ba0b894b 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -1,4 +1,4 @@ -(EVAL-WHEN (:COMPILE-TOPLEVEL) (PROVIDE "boot-translator")) +(EVAL-WHEN (:COMPILE-TOPLEVEL) (PROVIDE "translator")) (IMPORT-MODULE "includer") @@ -644,14 +644,15 @@ (LET ((|op| (CAR |bfVar#16|)) (|t| (CADR |bfVar#16|))) (|bpPush| (LIST (|genDeclaration| |op| |t|))))) - (|Module| + (|%Module| (LET ((|m| (CAR |bfVar#16|))) (|bpPush| (LIST (|shoeCompileTimeEvaluation| - (LIST 'PROVIDE |m|)))))) + (LIST 'PROVIDE (STRING |m|))))))) (|Import| (LET ((|m| (CAR |bfVar#16|))) - (|bpPush| (LIST (LIST 'IMPORT-MODULE |m|))))) + (|bpPush| + (LIST (LIST 'IMPORT-MODULE (STRING |m|)))))) (|ImportSignature| (LET ((|x| (CAR |bfVar#16|)) (|sig| (CADR |bfVar#16|))) |