Arity bug in build-info fix.

svn: r2328

collects/profj/build-info.ss

@@ -1107,7 +1107,7 @@
                                         (make-id (method-record-name m) #f)
                                         (map (lambda (a)
                                                (make-var-decl (make-id (gensym) #f) null
-                                                              (type->type-spec a) #f))
+                                                              (type->type-spec a) #f #f))
                                              (method-record-atypes m))
                                         null #f #f 
                                         (copy-method-record m) #f))

collects/tests/profj/advanced-tests.ss

@@ -5,6 +5,12 @@
   
   ;;Execution tests without errors
   
+  (execute-test
+   "interface A { int a( int x); }
+    abstract class B implements A { }
+   "
+   'advanced #f "abs. class with interface not all impl., with args")
+  
   (execute-test
    "public class X {
      private int x() { return 3; }