syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

subtyping for effect-free functions

This commit is contained in:
Sam Caldwell 2019-05-01 10:17:26 -04:00
parent 63089efdbc
commit 97b3a9a0b5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/typed/core-types.rkt
View File

@ -707,9 +707,9 @@
[((~Actor τ1) (~Actor τ2)) [((~Actor τ1) (~Actor τ2))
(and (<: #'τ1 #'τ2) (and (<: #'τ1 #'τ2)
(<: (∩ (strip-? #'τ1) #'τ2) #'τ1))] (<: (∩ (strip-? #'τ1) #'τ2) #'τ1))]
[((~→ τ-in1 ... τ-out1) (~→ τ-in2 ... τ-out2)) [((~→fn τ-in1 ... τ-out1) (~→fn τ-in2 ... τ-out2))
#:when (stx-length=? #'(τ-in1 ...) #'(τ-in2 ...)) (and (stx-length=? #'(τ-in1 ...) #'(τ-in2 ...))
(and (stx-andmap <: #'(τ-in2 ...) #'(τ-in1 ...)) (stx-andmap <: #'(τ-in2 ...) #'(τ-in1 ...))
(<: #'τ-out1 #'τ-out2))] (<: #'τ-out1 #'τ-out2))]
[(~Discard _) [(~Discard _)
#t] #t]
@ -739,7 +739,7 @@
(<: ty2 ty1))] (<: ty2 ty1))]
[(== irrelevant) [(== irrelevant)
#t]))] #t]))]
;; TODO: clauses for Roles, and so on ;; TODO: clauses for Roles, effectful functions, and so on
[_ [_
#f])) #f]))