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

Unbreak coverage for *SL `define-struct'.

Browse Source
This commit is contained in:
Mike Sperber 2010-10-08 19:56:51 +02:00
parent 7df9a22a67
commit 4ec7cb1d88
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/lang/private/teach.rkt
View File

@ -894,12 +894,12 @@
(combined (at name_ (predicate raw-predicate)) (combined (at name_ (predicate raw-predicate))
(at field_ (signature:property getter-name field_/no-loc)) ...))) (at field_ (signature:property getter-name field_/no-loc)) ...)))
#`(define (#,parametric-signature-name field_ ...) #`(define (#,parametric-signature-name field_ ...)
(let* ((sigs (list field_ ...)) (let* ((sigs (list field_/no-loc ...))
(sig (sig
(make-lazy-wrap-signature 'name_ #t (make-lazy-wrap-signature 'name_ #t
type-descriptor type-descriptor
raw-predicate raw-predicate
(list field_/no-loc ...) sigs
#'name_))) #'name_)))
(let ((arbs (map signature-arbitrary sigs))) (let ((arbs (map signature-arbitrary sigs)))
(when (andmap values arbs) (when (andmap values arbs)