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

rewrote an ->d contract so that it would work with a let*-style scoping

Browse Source
This commit is contained in:
Robby Findler 2010-07-10 09:52:47 -05:00
parent 476dd36eec
commit 41cfcbe862
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/typed-scheme/rep/filter-rep.rkt
View File

@ -3,11 +3,9 @@
(require scheme/match scheme/contract)
(require "rep-utils.rkt" "free-variance.rkt")
(define Filter/c
(flat-named-contract
'Filter
(λ (e)
(and (Filter? e) (not (NoFilter? e)) (not (FilterSet? e))))))
(define (Filter/c-predicate? e)
(and (Filter? e) (not (NoFilter? e)) (not (FilterSet? e))))
(define Filter/c (flat-named-contract 'Filter Filter/c-predicate?))
(define FilterSet/c
(flat-named-contract
@ -48,17 +46,16 @@
(combine-frees (map free-idxs* fs))])
(df FilterSet (thn els)
[#:contract (->d ([t (cond [(Bot? t)
Bot?]
[(Bot? e)
Top?]
[else Filter/c])]
[e (cond [(Bot? e)
Bot?]
[(Bot? t)
Top?]
[else Filter/c])])
[#:contract (->d ([t any/c]
[e any/c])
(#:syntax [stx #f])
#:pre-cond
(and (cond [(Bot? t) #t]
[(Bot? e) (Top? t)]
[else (Filter/c-predicate? t)])
(cond [(Bot? e) #t]
[(Bot? t) (Top? e)]
[else (Filter/c-predicate? e)]))
[result FilterSet?])]
[#:fold-rhs (*FilterSet (filter-rec-id thn) (filter-rec-id els))])