BlockContext.st
branchjv
changeset 18071 009cf668b0ed
parent 18066 89d51443ba6f
parent 15454 fd304e6048f0
child 18442 bd42fa983e3f
--- a/BlockContext.st	Mon Jul 01 22:14:20 2013 +0100
+++ b/BlockContext.st	Tue Jul 09 22:51:30 2013 +0100
@@ -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 $'
 ! !