Replace the `init' class-slot function with an `init' message.

[sod] / test / test.sod

diff --git a/test/test.sod b/test/test.sod
index e5025b5404b827babac3d8d983627f96d3e591eb..71fdd68c28753c7810b63d124be058307ce80b24 100644 (file)
--- a/test/test.sod
+++ b/test/test.sod
@@ -169,7 +169,7 @@ class T1Sub : T1Base {
 
 code c : tests {
   prepare("aggregate, base");
-  { SOD_DECL(T1Base, t1);
+  { SOD_DECL(T1Base, t1, NO_KWARGS);
     struct item *l;
     struct vec v;
     STEP(0); T1Base_aprogn(t1); /* 1 */
@@ -185,7 +185,7 @@ code c : tests {
     DONE(7);
   }
   prepare("aggregate, sub");
-  { SOD_DECL(T1Sub, t1);
+  { SOD_DECL(T1Sub, t1, NO_KWARGS);
     struct item *l;
     struct vec v;
     T1Base_aprogn(t1); /* 0, 1 */