Fix a problem generating contracts for FlVector exports. Add test for problem.
svn: r18603
This commit is contained in:
parent
fb37601b55
commit
cf017110a9
|
@ -19,6 +19,7 @@
|
|||
|
||||
;; Check the FlVector type is exported
|
||||
(define: v : FlVector (flvector 1. 2. 3.))
|
||||
(define-struct: Foo ([vec : FlVector]) #:transparent)
|
||||
|
||||
(check equal? (flvector 1. 2. 3. 4.) (flvector 1. 2. 3. 4.))
|
||||
(check equal? (flvector? (flvector 1. 2. 3.)) #t)
|
||||
|
|
|
@ -11,7 +11,7 @@
|
|||
scheme/flonum
|
||||
(prefix-in c: scheme/contract)
|
||||
(for-syntax scheme/base syntax/parse)
|
||||
(for-template scheme/base scheme/contract scheme/promise scheme/tcp))
|
||||
(for-template scheme/base scheme/contract scheme/promise scheme/tcp scheme/flonum))
|
||||
|
||||
(provide (all-defined-out)
|
||||
(rename-out [make-Listof -lst]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user