--- a/BlockContext.st Thu Jul 04 08:25:04 2013 +0000
+++ b/BlockContext.st Thu Jul 04 08:29:43 2013 +0200
@@ -155,6 +155,10 @@
(nargs == 6) ifTrue:[^ #value:value:value:value:value:value:].
(nargs == 7) ifTrue:[^ #value:value:value:value:value:value:value:].
(nargs == 8) ifTrue:[^ #value:value:value:value:value:value:value:value:].
+ (nargs == 9) ifTrue:[^ #value:value:value:value:value:value:value:value:value:].
+ (nargs == 10) ifTrue:[^ #value:value:value:value:value:value:value:value:value:value:].
+ (nargs == 11) ifTrue:[^ #value:value:value:value:value:value:value:value:value:value:value:].
+ (nargs == 12) ifTrue:[^ #value:value:value:value:value:value:value:value:value:value:value:value:].
^ nil
! !
@@ -257,10 +261,10 @@
!BlockContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.38 2013-06-07 13:32:46 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.39 2013-07-04 06:29:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.38 2013-06-07 13:32:46 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.39 2013-07-04 06:29:43 cg Exp $'
! !