diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-03 07:51:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-03 07:51:43 +0000 |
| commit | 9396ac962517465319521fb9affdd456791826d5 (patch) | |
| tree | 31e6e93baf58aa6441fa7e4cf8d2df76c0f9f14c /src/boot/strap | |
| parent | 6e817dbdfdeb7f33ace01d37ff4a22dc6191cabc (diff) | |
| download | open-axiom-9396ac962517465319521fb9affdd456791826d5.tar.gz | |
more cleanup
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 5 | ||||
| -rw-r--r-- | src/boot/strap/translator.clisp | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index f17b0d63..0207ed51 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -5,6 +5,11 @@ (PROVIDE "tokens") +(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) + (EXPORT '|$InteractiveMode|)) + +(DEFPARAMETER |$InteractiveMode| NIL) + (DEFUN |char| (|x|) (SCHAR (SYMBOL-NAME |x|) 0)) (DEFUN |shoeStartsId| (|x|) diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index a5a24e72..42a0740f 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -14,7 +14,8 @@ (PROVIDE "translator") (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) - (EXPORT '|evalBootFile|)) + (EXPORT '(|evalBootFile| |loadNativeModule| |loadSystemRuntimeCore| + |string2BootTree| |genImportDeclaration|))) (DEFPARAMETER |$currentModuleName| NIL) |