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