Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[true] whileTrue: -> #loop
authorStefan Vogel <sv@exept.de>
Fri, 07 Mar 2014 23:06:30 +0100
changeset 16239 5c0afdea0078
parent 16238 12b738714ddb
child 16240 aa502d6cbe9e
[true] whileTrue: -> #loop
Block.st file | annotate | diff | comparison | revisions 
--- a/Block.st	Fri Mar 07 23:06:05 2014 +0100
+++ b/Block.st	Fri Mar 07 23:06:30 2014 +0100
@@ -664,6 +664,7 @@
 ! !
 
 
+
 !Block methodsFor:'accessing'!
 
 home
@@ -2436,7 +2437,7 @@
     |exitBlock|
 
     exitBlock := [:exitValue | ^ exitValue].
-    [true] whileTrue:[ self value:exitBlock ]
+    [self value:exitBlock] loop.
 
     "
      |i|
@@ -3136,11 +3137,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.202 2014-02-27 14:43:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.203 2014-03-07 22:06:30 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.202 2014-02-27 14:43:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.203 2014-03-07 22:06:30 stefan Exp $'
 ! !
hg/stx-libbasic