#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Fri, 14 Jul 2017 11:44:42 +0200
changeset 4164 b79eeaec03d8
parent 4163 00ff0d34f206
child 4165 e8783528724e
#QUALITY by cg class: Parser changed: #rememberReturnedValue:
Parser.st
--- a/Parser.st	Thu Jul 13 16:23:48 2017 +0200
+++ b/Parser.st	Fri Jul 14 11:44:42 2017 +0200
@@ -11048,9 +11048,11 @@
     expr isAssignment ifTrue:[
         expr := expr expression.
     ].
-    (expr isConstant or:[expr isSelf]) ifTrue:[
+    (expr notNil and:[expr isConstant or:[expr isSelf]]) ifTrue:[
         returnedValues add:expr
     ].
+
+    "Modified: / 14-07-2017 / 10:43:43 / cg"
 !
 
 rememberSelectorPossiblyUsed:sel