diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-29 23:50:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-29 23:50:08 +0000 |
| commit | 6c9b37fd68b558bced11d67cfc798ca96800bc79 (patch) | |
| tree | ccc64628c69ca1d1fcb71c7b20c030d896d62d05 /src/boot/strap/includer.clisp | |
| parent | d310a5d012161a4515d5c9e96e992fc6977d8f6b (diff) | |
| download | open-axiom-6c9b37fd68b558bced11d67cfc798ca96800bc79.tar.gz | |
* boot/parser.boot (%ParserState): New.
(makeParserState): Likewise.
(%Translator): Likewise.
(makeTranslator): Likewise.
Make all parsing functions take a parser state argument.
* boot/translator.boot (shoeOutParse): Adjust.
* interp/spad-parser.boot (stringPrefix?): Remove redudant definition.
Diffstat (limited to 'src/boot/strap/includer.clisp')
| -rw-r--r-- | src/boot/strap/includer.clisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index ce957612..3ecb4580 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -20,7 +20,9 @@ (READ-FROM-STRING (CONCAT "(" (|subString| |s| |n| (- |l| |n|)) ")"))))))) -(DEFUN |shoeConsole| (|line|) (WRITE-LINE |line| *TERMINAL-IO*)) +(DEFUN |shoeConsole| (|line|) + (DECLARE (SPECIAL |$stdio|)) + (WRITE-LINE |line| |$stdio|)) (DEFUN |shoeSpaces| (|n|) (|makeString| |n| (|char| '|.|))) |