suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arity bug in build-info fix.

Browse Source 
svn: r2328
This commit is contained in:
Kathy Gray 2006-02-28 05:38:32 +00:00
parent e5db23bed1
commit 9469edc6f1
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/profj/build-info.ss
View File

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

6
collects/tests/profj/advanced-tests.ss
View File

@ -5,6 +5,12 @@
;;Execution tests without errors ;;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 (execute-test
"public class X { "public class X {
private int x() { return 3; } private int x() { return 3; }