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

allow equal? when there's overlap

This commit is contained in:
Sam Caldwell 2019-06-17 11:24:40 -04:00
parent f597fdc499
commit 5f38b6cc94
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/typed/prim.rkt
View File

@ -57,9 +57,14 @@
(define-typed-syntax (equal? e1:expr e2:expr) ≫
[⊢ e1 ≫ e1- (⇒ : τ1)]
[⊢ e2 ≫ e2- (⇒ : τ2)]
#:fail-unless (flat-type? #'τ1)
(format "equality only available on flat data; got ~a" (type->str #'τ1))
[⊢ e2 ≫ e2- (⇐ : τ1)]
(format "equality only available on flat data; got ~a" (type->str #'τ1))
#:fail-unless (flat-type? #'τ2)
(format "equality only available on flat data; got ~a" (type->str #'τ2))
#:with int (∩ #'τ1 #'τ2)
#:fail-unless (not (bot? #'int))
(format "empty overlap between types ~a and ~a" (type->str #'τ1) (type->str #'τ2))
#:fail-unless (pure? #'e1-) "expression not allowed to have effects"
#:fail-unless (pure? #'e2-) "expression not allowed to have effects"
---------------------------------------------------------------------------