Mercurial Mercurial > hg > stx-libcomp / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ReturnNode.st
changeset 1594 d99ea853d052
parent 1593 40c32bd334d9
child 1726 7338ad3dfc05 
--- a/ReturnNode.st	Wed May 04 12:03:12 2005 +0200
+++ b/ReturnNode.st	Mon May 09 09:15:48 2005 +0200
@@ -129,7 +129,9 @@
 evaluateExpressionIn:anEnvironment
     |val|
 
-    val := expression evaluateIn:anEnvironment.
+    expression notNil ifTrue:[
+        val := expression evaluateIn:anEnvironment.
+    ].
     myHome exitWith:val.
     "when we arrive here, the parser context is already gone
      - try block-return"
@@ -158,5 +160,5 @@
 !ReturnNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.32 2005-05-04 10:03:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.33 2005-05-09 07:15:48 cg Exp $'
 ! !
hg/stx-libcomp