ReadEvalPrintLoop.st
changeset 16115 032fc08ead9b
parent 16089 04545ee7ab04
child 16118 4c4d8b9222bc
--- a/ReadEvalPrintLoop.st	Sat Feb 22 18:19:42 2014 +0100
+++ b/ReadEvalPrintLoop.st	Sat Feb 22 18:24:09 2014 +0100
@@ -457,7 +457,7 @@
             chunk := lines asStringWith:Character cr.
         ].
 
-        chunk notEmptyOrNil ifTrue:[
+        (chunk notEmptyOrNil and:[chunk withoutSeparators notEmpty]) ifTrue:[
             "abortAll is handled, but not asked for here!!"
             AbortAllOperationRequest handle:[:ex |
                 error nextPutLine:('Evaluation aborted: ', ex description)
@@ -564,10 +564,10 @@
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.46 2014-02-20 08:43:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.47 2014-02-22 17:24:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.46 2014-02-20 08:43:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.47 2014-02-22 17:24:09 cg Exp $'
 ! !