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

svn: r5501

Browse Source
This commit is contained in:
Kathy Gray 2007-01-29 17:05:18 +00:00
parent 74f94b755e
commit 8eee6a0298
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/profj/libs/java/lang/Object-composite.ss
View File

@ -947,6 +947,21 @@
; -> string
(define/override (my-name) "Throwable")
(define/override (field-names)
(cond
[(and (null? cause)
(equal? "" (send message get-mzscheme-string))) null]
[(null? cause) (list "message")]
[(equal? "" (send message get-mzscheme-string)) (list "cause")]
[else (list "message" "cause")]))
(define/override (field-values)
(cond
[(and (null? cause)
(equal? "" (send message get-mzscheme-string))) null]
[(null? cause) (list message)]
[(equal? "" (send message get-mzscheme-string)) (list cause)]
[else (list message cause)]))
(super-instantiate ())))
;(make-java-exception string continuation-mark-set Throwable)

2
collects/profj/tester.scm
View File

@ -77,7 +77,7 @@
(set-single-test-covered-exprs!
current-class
(cons src (single-test-covered-exprs current-class)))
(when (and (testcase-ext?) src)
(when (and (testcase-ext?) src (not (null? current-test-obj)))
(send current-test-obj testCoverage-boolean-int #f (src-pos src))))
(define/public (provide-test-results)