diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-28 18:29:20 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-28 18:29:20 +0000 |
commit | d310a5d012161a4515d5c9e96e992fc6977d8f6b (patch) | |
tree | 6436a7ac2ed1a978da9d2b2b055a6ea2cb9d916e /src/boot/translator.boot | |
parent | 62a125276f6dc3acedaf11af209b7e4c02306128 (diff) | |
download | open-axiom-d310a5d012161a4515d5c9e96e992fc6977d8f6b.tar.gz |
* interp/lexing.boot: Use makeToken directly.
(tokenInstall): Remove.
(getSpadIntegerToken): Lose parameter. Adjust callers.
(getNumberToken): Likewise.
(getArgumentDesignator): Likewise.
(getToken): Likewise.
(getSpadString): Likewise.
(getSpecial): Likewise.
(getGliph): Likewise.
(getIdentifier): Likewise.
* lisp/core.lisp.in ($stdio): New.
* boot/includer.boot: Use it.
* boot/translator.boot: Likewise.
* boot/utility.boot (stringPrefix?): New.
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r-- | src/boot/translator.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 79228477..2302582d 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -691,12 +691,12 @@ PSTTOMC string== shoePCompileTrees shoeTransformString string BOOTLOOP() == - a := readLine _*STANDARD_-INPUT_* + a := readLine $stdin #a=0=> writeLine '"Boot Loop; to exit type ] " BOOTLOOP() shoePrefix? ('")console",a) => - stream:= _*TERMINAL_-IO_* + stream := $stdio PSTTOMC bRgen stream BOOTLOOP() stringChar(a,0) = char "]" => nil @@ -704,12 +704,12 @@ BOOTLOOP() == BOOTLOOP() BOOTPO() == - a := readLine _*STANDARD_-INPUT_* + a := readLine $stdin #a=0=> writeLine '"Boot Loop; to exit type ] " BOOTPO() shoePrefix? ('")console",a) => - stream:= _*TERMINAL_-IO_* + stream := $stdio PSTOUT bRgen stream BOOTPO() stringChar(a,0) = char "]" => nil |