use inherited #maxNumberOfArguments
authorClaus Gittinger <cg@exept.de>
Wed, 30 Jul 1997 12:57:47 +0200
changeset 2807 250650206c3e
parent 2806 9d3c4cf5f6e9
child 2808 3a9ce7aadad8
use inherited #maxNumberOfArguments
Block.st
--- a/Block.st	Wed Jul 30 12:56:56 1997 +0200
+++ b/Block.st	Wed Jul 30 12:57:47 1997 +0200
@@ -356,16 +356,6 @@
     ^ self == Block
 
     "Modified: 23.4.1996 / 15:55:58 / cg"
-!
-
-maxNumberOfArguments
-    "return the maximum number of arguments a block can have.
-     This is a limit in the VM, which may be removed in one of 
-     the next versions ..."
-
-%{  /* NOCONTEXT */
-    RETURN (__MKSMALLINT(MAX_METHOD_ARGS));
-%}
 ! !
 
 !Block methodsFor:'Compatibility - ST/V'!
@@ -1465,6 +1455,6 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.74 1997-07-08 10:09:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.75 1997-07-30 10:57:47 cg Exp $'
 ! !
 Block initialize!