--- a/VarArgBlock.st Tue Apr 16 14:27:04 2013 +0200
+++ b/VarArgBlock.st Thu Apr 18 20:41:50 2013 +0200
@@ -93,19 +93,18 @@
"must clear the is-block flag bit in the class
(otherwise, the VM might try to inline value-messages)"
- |flags|
- flags := self flags.
- flags := flags bitClear:(Behavior flagBlock).
- flags := flags bitOr:(Behavior flagBlockLike).
- self flags:flags.
+ |newFlags|
+
+ newFlags := (self flags
+ bitClear:(Behavior flagBlock))
+ bitOr:(Behavior flagBlockLike).
+ self flags:newFlags.
"
self flags.
self initialize.
self flags.
"
-
-
! !
!VarArgBlock methodsFor:'evaluation'!
@@ -237,7 +236,8 @@
!VarArgBlock class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/VarArgBlock.st,v 1.7 2011-09-29 11:19:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/VarArgBlock.st,v 1.8 2013-04-16 12:44:14 cg Exp $'
! !
+
VarArgBlock initialize!