From 2db7898f705fcf407040485c1362562d5c948c98 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Jul 2008 20:58:43 +0000 Subject: [PATCH] more r6rs test missing record-type-descriptors svn: r10884 --- collects/tests/r6rs/arithmetic/flonums.sls | 4 ++-- collects/tests/r6rs/test.sls | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/r6rs/arithmetic/flonums.sls b/collects/tests/r6rs/arithmetic/flonums.sls index 97f7708e42..b8fe25b657 100644 --- a/collects/tests/r6rs/arithmetic/flonums.sls +++ b/collects/tests/r6rs/arithmetic/flonums.sls @@ -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) diff --git a/collects/tests/r6rs/test.sls b/collects/tests/r6rs/test.sls index adb887e8ee..8516e15051 100644 --- a/collects/tests/r6rs/test.sls +++ b/collects/tests/r6rs/test.sls @@ -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)]))