*** empty log message ***
authorca
Wed, 07 Feb 2007 11:53:20 +0100
changeset 1980 8298d33fd68b
parent 1979 847742bcb22d
child 1981 fc99c5b84c1d
*** empty log message ***
ReturnNode.st
--- a/ReturnNode.st	Tue Feb 06 19:41:26 2007 +0100
+++ b/ReturnNode.st	Wed Feb 07 11:53:20 2007 +0100
@@ -125,6 +125,7 @@
 !
 
 codeOn:aStream inBlock:b for:aCompiler
+false ifTrue:[
     aCompiler parserFlags allowPossibleSTCCompilationProblems ifFalse:[
         aCompiler 
             parseError:'stc will not compile return within a return'
@@ -136,6 +137,7 @@
                 line:lineNr.
         ].
     ].
+].
     self basicCodeOn:aStream inBlock:b for:aCompiler
 
     "Modified: / 16-11-2006 / 14:34:15 / cg"
@@ -187,5 +189,5 @@
 !ReturnNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.35 2006-11-16 13:43:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.36 2007-02-07 10:53:20 ca Exp $'
 ! !