From d310a5d012161a4515d5c9e96e992fc6977d8f6b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 28 May 2012 18:29:20 +0000
Subject: 	* 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.

---
 src/boot/translator.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/boot/translator.boot')

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
-- 
cgit v1.2.3