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.
COMMA_SENDER arg is no longer supported / needed
authorClaus Gittinger <cg@exept.de>
Sat, 18 Jan 1997 00:30:21 +0100
changeset 2201 db0f6e86c8bb
parent 2200 a2b25d9e5cac
child 2202 a3432984bb95
COMMA_SENDER arg is no longer supported / needed
Behavior.st file | annotate | diff | comparison | revisions
Block.st file | annotate | diff | comparison | revisions
Context.st file | annotate | diff | comparison | revisions
Method.st file | annotate | diff | comparison | revisions 
--- a/Behavior.st	Sat Jan 18 00:28:37 1997 +0100
+++ b/Behavior.st	Sat Jan 18 00:30:21 1997 +0100
@@ -2504,7 +2504,7 @@
      Does NOT (currently) handle MI"
 
 %{  /* NOCONTEXT */
-    RETURN ( __lookup(self, aSelector, SENDER) );
+    RETURN ( __lookup(self, aSelector) );
 %}
 
     "
@@ -3385,5 +3385,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.97 1997-01-11 14:05:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.98 1997-01-17 23:30:21 cg Exp $'
 ! !
--- a/Block.st	Sat Jan 18 00:28:37 1997 +0100
+++ b/Block.st	Sat Jan 18 00:30:21 1997 +0100
@@ -509,25 +509,25 @@
 #ifdef NEW_BLOCK_CALL
 	if (thecode != (OBJFUNC)nil) {
 	    /* compiled machine code */
-	    RETURN ( (*thecode)(self, COMMA_SND) );
+	    RETURN ( (*thecode)(self) );
 	}
 	/* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 0, nil, nil COMMA_SND, nil, nil) );
+	RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
 # else
-	RETURN ( __interpret(self, 0, nil, nil COMMA_SND, nil, nil) );
+	RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
 # endif
 #else
 	home = __BlockInstPtr(self)->b_home;
 	if (thecode != (OBJFUNC)nil) {
 	    /* compiled machine code */
-	    RETURN ( (*thecode)(home COMMA_SND) );
+	    RETURN ( (*thecode)(home) );
 	}
 	/* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 0, nil, home COMMA_SND, nil, nil) );
+	RETURN ( __interpret(self, 0, nil, home, nil, nil) );
 # else
-	RETURN ( __interpret(self, 0, nil, home COMMA_SND, nil, nil) );
+	RETURN ( __interpret(self, 0, nil, home, nil, nil) );
 # endif
 #endif
     }
@@ -552,24 +552,24 @@
 	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self COMMA_SND, arg) );
+	    RETURN ( (*thecode)(self, arg) );
 	}
 	/* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 1, nil, nil COMMA_SND, nil, nil, &arg) );
+	RETURN ( __interpret(self, 1, nil, nil, nil, nil, &arg) );
 # else
-	RETURN ( __interpret(self, 1, nil, nil COMMA_SND, nil, nil, arg) );
+	RETURN ( __interpret(self, 1, nil, nil, nil, nil, arg) );
 # endif
 #else
 	home = __BlockInstPtr(self)->b_home;
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home COMMA_SND, arg) );
+	    RETURN ( (*thecode)(home, arg) );
 	}
 	/* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 1, nil, home COMMA_SND, nil, nil, &arg) );
+	RETURN ( __interpret(self, 1, nil, home, nil, nil, &arg) );
 # else
-	RETURN ( __interpret(self, 1, nil, home COMMA_SND, nil, nil, arg) );
+	RETURN ( __interpret(self, 1, nil, home, nil, nil, arg) );
 # endif
 #endif
     }
@@ -594,22 +594,22 @@
 	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self COMMA_SND, arg1, arg2) );
+	    RETURN ( (*thecode)(self, arg1, arg2) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 2, nil, nil COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 2, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 2, nil, nil COMMA_SND, nil, nil, arg1, arg2) );
+	RETURN ( __interpret(self, 2, nil, nil, nil, nil, arg1, arg2) );
 # endif
 #else
 	home = __BlockInstPtr(self)->b_home;
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home COMMA_SND, arg1, arg2) );
+	    RETURN ( (*thecode)(home, arg1, arg2) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 2, nil, home COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 2, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 2, nil, home COMMA_SND, nil, nil, arg1, arg2) );
+	RETURN ( __interpret(self, 2, nil, home, nil, nil, arg1, arg2) );
 # endif
 #endif
     }
@@ -634,22 +634,22 @@
 	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self COMMA_SND, arg1, arg2, arg3) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 3, nil, nil COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 3, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 3, nil, nil COMMA_SND, nil, nil, arg1, arg2, arg3) );
+	RETURN ( __interpret(self, 3, nil, nil, nil, nil, arg1, arg2, arg3) );
 # endif
 #else
 	home = __BlockInstPtr(self)->b_home;
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home COMMA_SND, arg1, arg2, arg3) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 3, nil, home COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 3, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 3, nil, home COMMA_SND, nil, nil, arg1, arg2, arg3) );
+	RETURN ( __interpret(self, 3, nil, home, nil, nil, arg1, arg2, arg3) );
 # endif
 #endif
     }
@@ -674,22 +674,22 @@
 	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self COMMA_SND, arg1, arg2, arg3, arg4) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 4, nil, nil COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 4, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 4, nil, nil COMMA_SND, nil, nil, arg1, arg2, arg3, arg4) );
+	RETURN ( __interpret(self, 4, nil, nil, nil, nil, arg1, arg2, arg3, arg4) );
 # endif
 #else
 	home = __BlockInstPtr(self)->b_home;
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home COMMA_SND, arg1, arg2, arg3, arg4) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 4, nil, home COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 4, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 4, nil, home COMMA_SND, nil, nil, arg1, arg2, arg3, arg4) );
+	RETURN ( __interpret(self, 4, nil, home, nil, nil, arg1, arg2, arg3, arg4) );
 # endif
 #endif
     }
@@ -714,22 +714,22 @@
 	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self COMMA_SND, arg1, arg2, arg3, arg4, arg5) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 5, nil, nil COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 5, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 5, nil, nil COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5) );
+	RETURN ( __interpret(self, 5, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5) );
 # endif
 #else
 	home = __BlockInstPtr(self)->b_home;
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home COMMA_SND, arg1, arg2, arg3, arg4, arg5) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 5, nil, home COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 5, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 5, nil, home COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5) );
+	RETURN ( __interpret(self, 5, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5) );
 # endif
 #endif
     }
@@ -754,22 +754,22 @@
 	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self COMMA_SND, arg1, arg2, arg3, arg4, arg5, arg6) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 6, nil, nil COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 6, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 6, nil, nil COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
+	RETURN ( __interpret(self, 6, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
 # endif
 #else
 	home = __BlockInstPtr(self)->b_home;
 	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home COMMA_SND, arg1, arg2, arg3, arg4, arg5, arg6) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6) );
 	}
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 6, nil, home COMMA_SND, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 6, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 6, nil, home COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
+	RETURN ( __interpret(self, 6, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
 # endif
 #endif
     }
@@ -794,22 +794,22 @@
         thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
         if (thecode != (OBJFUNC)nil) {
-            RETURN ( (*thecode)(self COMMA_SND, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+            RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
         }
 # ifdef PASS_ARG_POINTER
-        RETURN ( __interpret(self, 7, nil, nil COMMA_SND, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 7, nil, nil, nil, nil, &arg1) );
 # else
-        RETURN ( __interpret(self, 7, nil, nil COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+        RETURN ( __interpret(self, 7, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
 # endif
 #else
         home = __BlockInstPtr(self)->b_home;
         if (thecode != (OBJFUNC)nil) {
-            RETURN ( (*thecode)(home COMMA_SND, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+            RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
         }
 # ifdef PASS_ARG_POINTER
-        RETURN ( __interpret(self, 7, nil, home COMMA_SND, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 7, nil, home, nil, nil, &arg1) );
 # else
-        RETURN ( __interpret(self, 7, nil, home COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+        RETURN ( __interpret(self, 7, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
 # endif
 #endif
     }
@@ -834,22 +834,22 @@
         thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
         if (thecode != (OBJFUNC)nil) {
-            RETURN ( (*thecode)(self COMMA_SND, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+            RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
         }
 # ifdef PASS_ARG_POINTER
-        RETURN ( __interpret(self, 8, nil, nil COMMA_SND, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 8, nil, nil, nil, nil, &arg1) );
 # else
-        RETURN ( __interpret(self, 8, nil, nil COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+        RETURN ( __interpret(self, 8, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
 # endif
 #else
         home = __BlockInstPtr(self)->b_home;
         if (thecode != (OBJFUNC)nil) {
-            RETURN ( (*thecode)(home COMMA_SND, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+            RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
         }
 # ifdef PASS_ARG_POINTER
-        RETURN ( __interpret(self, 8, nil, home COMMA_SND, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 8, nil, home, nil, nil, &arg1) );
 # else
-        RETURN ( __interpret(self, 8, nil, home COMMA_SND, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+        RETURN ( __interpret(self, 8, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
 # endif
 #endif
     }
@@ -891,29 +891,29 @@
                 goto error;
             case 8:
                 ap = __ArrayInstPtr(argArray)->a_element;
-	        RETURN ( (*thecode)(home COMMA_SND, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
+	        RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
             case 7:
                 ap = __ArrayInstPtr(argArray)->a_element;
-	        RETURN ( (*thecode)(home COMMA_SND, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
+	        RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
             case 6:
                 ap = __ArrayInstPtr(argArray)->a_element;
-	        RETURN ( (*thecode)(home COMMA_SND, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
+	        RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
             case 5:
                 ap = __ArrayInstPtr(argArray)->a_element;
-	        RETURN ( (*thecode)(home COMMA_SND, ap[0], ap[1], ap[2], ap[3], ap[4]) );
+	        RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4]) );
             case 4:
                 ap = __ArrayInstPtr(argArray)->a_element;
-	        RETURN ( (*thecode)(home COMMA_SND, ap[0], ap[1], ap[2], ap[3]) );
+	        RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3]) );
             case 3:
                 ap = __ArrayInstPtr(argArray)->a_element;
-	        RETURN ( (*thecode)(home COMMA_SND, ap[0], ap[1], ap[2]) );
+	        RETURN ( (*thecode)(home, ap[0], ap[1], ap[2]) );
             case 2:
                 ap = __ArrayInstPtr(argArray)->a_element;
-	        RETURN ( (*thecode)(home COMMA_SND, ap[0], ap[1]) );
+	        RETURN ( (*thecode)(home, ap[0], ap[1]) );
             case 1:
-	        RETURN ( (*thecode)(home COMMA_SND, __ArrayInstPtr(argArray)->a_element[0]) );
+	        RETURN ( (*thecode)(home, __ArrayInstPtr(argArray)->a_element[0]) );
             case 0:
-	        RETURN ( (*thecode)(home COMMA_SND) );
+	        RETURN ( (*thecode)(home) );
                 break;
 	}
     }
@@ -944,20 +944,20 @@
 
 #ifdef NEW_BLOCK_CALL
     if (thecode != (OBJFUNC)nil) {
-	RETURN ( (*thecode)(self COMMA_SND, a1, a2, a3, a4, a5, a6, a7, a8) );
+	RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8) );
     }
 # ifdef PASS_ARG_POINTER
-    RETURN ( __interpret(self, nargs, nil, nil COMMA_SND, nil, nil, &a1) );
+    RETURN ( __interpret(self, nargs, nil, nil, nil, nil, &a1) );
 # else
-    RETURN ( __interpret(self, nargs, nil, nil COMMA_SND, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8) );
+    RETURN ( __interpret(self, nargs, nil, nil, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8) );
 # endif
 
 #else
 
 # ifdef PASS_ARG_POINTER
-    RETURN ( __interpret(self, nargs, nil, home COMMA_SND, nil, nil, &a1) );
+    RETURN ( __interpret(self, nargs, nil, home, nil, nil, &a1) );
 # else
-    RETURN ( __interpret(self, nargs, nil, home COMMA_SND, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8) );
+    RETURN ( __interpret(self, nargs, nil, home, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8) );
 # endif
 
 #endif
@@ -1406,6 +1406,6 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.65 1996-11-15 10:39:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.66 1997-01-17 23:30:04 cg Exp $'
 ! !
 Block initialize!
--- a/Context.st	Sat Jan 18 00:28:37 1997 +0100
+++ b/Context.st	Sat Jan 18 00:30:21 1997 +0100
@@ -658,7 +658,7 @@
 
     sender isNil ifTrue:[^ nil].
 %{
-    __RESUMECONTEXT__(SND_COMMA self, RESTART_VALUE, 0);
+    __RESUMECONTEXT__(self, RESTART_VALUE, 0);
 %}.
     "
      when we arrive here, something went wrong.
@@ -757,7 +757,7 @@
 
     sender isNil ifTrue:[^ nil].
 %{
-    __RESUMECONTEXT__(SND_COMMA self, value, 0);
+    __RESUMECONTEXT__(self, value, 0);
 
 %}.
     "
@@ -785,7 +785,7 @@
 
     sender isNil ifTrue:[^ nil].
 %{
-    __RESUMECONTEXT__(SND_COMMA self, aBlock, 2);
+    __RESUMECONTEXT__(self, aBlock, 2);
 %}.
     "
      when we arrive here, something went wrong.
@@ -1297,6 +1297,6 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.70 1997-01-15 18:08:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.71 1997-01-17 23:29:55 cg Exp $'
 ! !
 Context initialize!
--- a/Method.st	Sat Jan 18 00:28:37 1997 +0100
+++ b/Method.st	Sat Jan 18 00:30:21 1997 +0100
@@ -1712,145 +1712,145 @@
             /* compiled code */
             switch (nargs) {
                 case 0:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy) );
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy) );
 
                 case 1:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, ap[0]) );
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, ap[0]) );
 
                 case 2:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, ap[0], ap[1]) );
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, ap[0], ap[1]) );
 
                 case 3:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, ap[0], ap[1], ap[2]) );
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, ap[0], ap[1], ap[2]) );
 
                 case 4:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3]) );
 
                 case 5:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4]) );
 
                 case 6:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
 
                 case 7:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
 
                 case 8:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
 
                 case 9:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
 
                 case 10:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
                                  ap[9]) );
 
                 case 11:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
                                  ap[9], ap[10]) );
 
                 case 12:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
                                  ap[9], ap[10], ap[11]) );
 
                 case 13:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
                                  ap[9], ap[10], ap[11], ap[12]) );
 
                 case 14:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
                                  ap[9], ap[10], ap[11], ap[12], ap[13]) );
 
                 case 15:
-                    RETURN ( (*code)(anObject, aSymbol, SND_COMMA searchClass, &dummy, 
+                    RETURN ( (*code)(anObject, aSymbol, searchClass, &dummy, 
                                  ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], 
                                  ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
             }
           } else {
             /* interpreted code */
 #ifdef PASS_ARG_POINTER
-            RETURN ( __interpret(self, nargs, anObject, aSymbol, SND_COMMA searchClass, &dummy, ap) );
+            RETURN ( __interpret(self, nargs, anObject, aSymbol, searchClass, &dummy, ap) );
 #else
             switch (nargs) {
                 case 0:
-                    RETURN ( __interpret(self, 0, anObject, aSymbol, SND_COMMA searchClass, &dummy) );
+                    RETURN ( __interpret(self, 0, anObject, aSymbol, searchClass, &dummy) );
 
                 case 1:
-                    RETURN ( __interpret(self, 1, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 1, anObject, aSymbol, searchClass, &dummy,
                                    ap[0]) );
 
                 case 2:
-                    RETURN ( __interpret(self, 2, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 2, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1]) );
 
                 case 3:
-                    RETURN ( __interpret(self, 3, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 3, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2]) );
 
                 case 4:
-                    RETURN ( __interpret(self, 4, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 4, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3]) );
 
                 case 5:
-                    RETURN ( __interpret(self, 5, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 5, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4]) );
 
                 case 6:
-                    RETURN ( __interpret(self, 6, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 6, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
 
                 case 7:
-                    RETURN ( __interpret(self, 7, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 7, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
 
                 case 8:
-                    RETURN ( __interpret(self, 8, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 8, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7]) );
 
                 case 9:
-                    RETURN ( __interpret(self, 9, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 9, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7], ap[8]) );
 
                 case 10:
-                    RETURN ( __interpret(self, 10, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 10, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7], ap[8], ap[9]) );
 
                 case 11:
-                    RETURN ( __interpret(self, 11, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 11, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7], ap[8], ap[9], ap[10]) );
 
                 case 12:
-                    RETURN ( __interpret(self, 12, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 12, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7], ap[8], ap[9], ap[11]) );
 
                 case 13:
-                    RETURN ( __interpret(self, 13, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 13, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7], ap[8], ap[9], ap[11], ap[12]) );
 
                 case 14:
-                    RETURN ( __interpret(self, 14, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 14, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7], ap[8], ap[9], ap[11], ap[12], ap[13]) );
 
                 case 15:
-                    RETURN ( __interpret(self, 15, anObject, aSymbol, SND_COMMA searchClass, &dummy,
+                    RETURN ( __interpret(self, 15, anObject, aSymbol, searchClass, &dummy,
                                    ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
                                    ap[7], ap[8], ap[9], ap[11], ap[12], ap[13], ap[14]) );
             }
@@ -2757,6 +2757,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.121 1997-01-16 00:32:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.122 1997-01-17 23:29:39 cg Exp $'
 ! !
 Method initialize!
hg/stx-libbasic