--- 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$'
! !