ReadEvalPrintLoop.st
changeset 22832 0271f0f2006b
parent 22796 8582780957f5
child 22903 d5cefe5e6246
--- a/ReadEvalPrintLoop.st	Wed May 09 14:33:34 2018 +0200
+++ b/ReadEvalPrintLoop.st	Wed May 09 14:34:40 2018 +0200
@@ -176,14 +176,6 @@
     "Modified: / 24-06-2017 / 09:54:10 / cg"
 !
 
-error:aStream
-    "assign an error stream"
-
-    errorStream := stderr := aStream.
-
-    "Created: / 07-12-2006 / 17:33:39 / cg"
-!
-
 errorStream
     "return the current error stream"
 
@@ -193,7 +185,16 @@
     "Created: / 07-12-2006 / 19:12:27 / cg"
 !
 
+errorStream:aStream
+    "assign an error stream"
+
+    errorStream := stderr := aStream.
+
+    "Created: / 07-12-2006 / 17:33:39 / cg"
+!
+
 input:aStream
+    <resource: #obsolete>
     "assign an input stream"
 
     inputStream := stdin := aStream asLineNumberReadStream.
@@ -210,6 +211,14 @@
     "Created: / 07-12-2006 / 19:12:13 / cg"
 !
 
+inputStream:aStream
+    "assign an input stream"
+
+    inputStream := stdin := aStream asLineNumberReadStream.
+
+    "Modified: / 07-12-2006 / 17:33:31 / cg"
+!
+
 noDebugger
     "true if no debugger should be activated on errors (aborts)"
 
@@ -223,6 +232,7 @@
 !
 
 output:aStream
+    <resource: #obsolete>
     "assign an output stream"
 
     outputStream := stdout := aStream.
@@ -239,6 +249,14 @@
     "Created: / 07-12-2006 / 19:12:27 / cg"
 !
 
+outputStream:aStream
+    "assign an output stream"
+
+    outputStream := stdout := aStream.
+
+    "Created: / 07-12-2006 / 17:27:48 / cg"
+!
+
 printFlag
     "true if the return value of expressions should be printed"