ReadEvalPrintLoop.st
changeset 20911 1c11be64f4a1
parent 20910 d97034358023
child 20912 fc5c40cbdb26
--- a/ReadEvalPrintLoop.st	Tue Nov 08 18:40:26 2016 +0100
+++ b/ReadEvalPrintLoop.st	Tue Nov 08 18:44:07 2016 +0100
@@ -649,6 +649,8 @@
      A '#' character appearing in the first column of the first line turns off chunkmode,
      which allows for convenient shell scripts containing a #/bin/stx as the first line."
 
+    exitAction := [^ self].
+
     [
         |lines chunk|
 
@@ -774,8 +776,6 @@
      A '#' character appearing in the first column of the first line
      switches to chunkmode."
 
-    exitAction := [^ self].
-
     ControlInterrupt handle:[:ex |
         self errorStream nextPutLine:('Caught: ', ex description).
         self inputStream atEnd ifTrue:[