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

Add comments for changes to substitution.

Browse Source
This commit is contained in:
Eric Dobson 2015-04-01 20:59:28 -07:00
parent 522e5fe45a
commit db3826c474
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
typed-racket-lib/typed-racket/typecheck/tc-subst.rkt
View File

@ -43,8 +43,8 @@
;; Substitution of objects into a tc-results
;; This is a combination of all of thes substitions from the paper over the different parts of the
;; results.
;; t is the type of the object that we are substituting in. This allows for simplification of some
;; filters if they conflict with the argument type.
;; t is the type of the object that we are substituting in. This allows for restriction/simplification
;; of some filters if they conflict with the argument type.
(define/cond-contract (subst-tc-results res k o polarity t)
(-> full-tc-results/c name-ref/c Object? boolean? Type? full-tc-results/c)
(define (st ty) (subst-type ty k o polarity t))
@ -125,7 +125,8 @@
t)]))
;; Substitution of objects into a filter in a filter set
;; This is ψ+ [o/x] and ψ- [o/x]
;; This is ψ+ [o/x] and ψ- [o/x] with the addition that filters are restricted to
;; only those values which are a subtype of the actual argument type (ty).
(define/cond-contract (subst-filter f k o polarity ty)
(-> Filter/c name-ref/c Object? boolean? Type/c Filter/c)
(define (ap f) (subst-filter f k o polarity ty))