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

tweak how pattern types are handled

This commit is contained in:
Sam Caldwell 2019-05-17 16:12:48 -04:00
parent 66a3ece353
commit d9e651a668
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/typed/core-expressions.rkt
View File

@ -131,15 +131,15 @@
(define-typed-syntax (match e [p s ...+] ...+) ≫
[⊢ e ≫ e- (⇒ : τ-e)]
#:fail-unless (pure? #'e-) "expression must be pure"
#:with (([x τ] ...) ...) (stx-map pat-bindings #'(p ...))
[[x ≫ x- : τ] ... ⊢ (begin s ...) ≫ s- (⇒ : τ-s)
#:with (([x τ:type] ...) ...) (stx-map pat-bindings #'(p ...))
[[x ≫ x- : τ.norm] ... ⊢ (begin s ...) ≫ s- (⇒ : τ-s)
(⇒ ν-ep (~effs eps ...))
(⇒ ν-f (~effs fs ...))
(⇒ ν-s (~effs ss ...))] ...
;; REALLY not sure how to handle p/p-/p.match-pattern,
;; particularly w.r.t. typed terms that appear in p.match-pattern
[⊢ p ≫ p-- ⇒ τ-p] ...
#:fail-unless (project-safe? #'τ-e (type-eval #'(U τ-p ...))) "possibly unsafe pattern match"
#:fail-unless (project-safe? #'τ-e (mk-U*- #'(τ-p ...))) "possibly unsafe pattern match"
#:fail-unless (stx-andmap pure? #'(p-- ...)) "patterns must be pure"
#:with (p- ...) (stx-map (lambda (p x-s xs) (substs x-s xs (compile-match-pattern p)))
#'(p ...)