more r6rs test missing record-type-descriptors
svn: r10884
This commit is contained in:
parent
55f2387f93
commit
2db7898f70
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user