more r6rs test missing record-type-descriptors

svn: r10884
This commit is contained in:
Matthew Flatt 2008-07-23 20:58:43 +00:00
parent 55f2387f93
commit 2db7898f70
2 changed files with 3 additions and 3 deletions

View File

@ -261,9 +261,9 @@
(test/approx (flexpt 10.0 3.0) 1000.0)
(test (no-infinities-violation? (make-no-infinities-violation)) #t)
(test ((record-predicate &no-infinities) (make-no-infinities-violation)) #t)
(test ((record-predicate (record-type-descriptor &no-infinities)) (make-no-infinities-violation)) #t)
(test (no-nans-violation? (make-no-nans-violation)) #t)
(test ((record-predicate &no-nans) (make-no-nans-violation)) #t)
(test ((record-predicate (record-type-descriptor &no-nans)) (make-no-nans-violation)) #t)
(test/approx (fixnum->flonum 2) 2.0)

View File

@ -78,7 +78,7 @@
(define-syntax test/unspec-or-exn
(syntax-rules ()
[(_ expr condition)
(test (guard (c [((condition-predicate condition) c)
(test (guard (c [((condition-predicate (record-type-descriptor condition)) c)
'unspec])
(begin expr 'unspec))
'unspec)]))