#OTHER by exept
authorClaus Gittinger <cg@exept.de>
Thu, 22 Aug 2019 17:54:49 +0200
changeset 4507 f61494fda739
parent 4506 c5b6671d3761
child 4508 acdb6bc18328
#OTHER by exept fixed child enumeration for explainer
ReturnNode.st
--- a/ReturnNode.st	Thu Aug 22 17:54:46 2019 +0200
+++ b/ReturnNode.st	Thu Aug 22 17:54:49 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 StatementNode subclass:#ReturnNode
 	instanceVariableNames:'myHome blockHome'
 	classVariableNames:''
@@ -191,6 +195,14 @@
     "Modified: 19.6.1997 / 16:42:40 / cg"
 ! !
 
+!ReturnNode methodsFor:'enumeration'!
+
+childrenDo:aBlock
+    aBlock value:expression.
+
+
+! !
+
 !ReturnNode methodsFor:'evaluation'!
 
 evaluateExpressionIn:anEnvironment
@@ -256,6 +268,6 @@
 !ReturnNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.45 2014-06-13 10:24:03 cg Exp $'
+    ^ '$Header$'
 ! !