Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Tue, 10 May 2016 10:12:51 +0200
changeset 5092 50b3a8b7f676
parent 5090 c68614848447
child 5093 a70ea1df6754
#OTHER by cg class: DoWhatIMeanSupport changed: #addClassesOfMessage:inClass:to: be robust about partially parsed message nodes (no argument in binary/keyword message)
DoWhatIMeanSupport.st file | annotate | diff | comparison | revisions 
--- a/DoWhatIMeanSupport.st	Mon May 09 10:43:10 2016 +0200
+++ b/DoWhatIMeanSupport.st	Tue May 10 10:12:51 2016 +0200
@@ -4995,7 +4995,8 @@
             setOfTypes add:Number.
             ^ setOfTypes.
         ].
-        msgArg1 := expr arg1.
+        msgArg1 := expr arguments at:1 ifAbsent:nil.
+        msgArg1 isNil ifTrue:[^ setOfTypes].
         arg1Classes := ((self classesOfNode:msgArg1) ? #()).
         (arg1Classes contains:[:cls | cls includesBehavior:Number]) ifTrue:[
             setOfTypes add:Number.
hg/stx-libwidg2