alex-eg/sex
1
0
Fork 1
Code Issues 3 Pull Requests 1 Actions Packages Projects 1 Releases Wiki Activity

show the cases the comments were describing
All checks were successful
Sex CI / build-linux (pull_request) Successful in 5m18s
Details

Browse Source
This commit is contained in:
alex-eg
2026-09-30 23:48:31 +03:00
parent fe72a109bf
commit a860da6d7e
5 changed files with 97 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
infer.scm
View File

@@ -509,9 +509,9 @@
((eq? a b) #t)
((unknown-type? a) #t)
((unknown-type? b) #t)
;; Whichever side is free takes the binding, so that a rigid
;; variable is solved *to* rather than solved, in either order.
;; Both rigid and distinct is the mismatch `eq?' above let through.
;; Whichever side is free takes the binding: `(unify a r)' and
;; `(unify r a)' both leave `a' bound to `r'. Two rigid and
;; distinct is the mismatch `eq?' above let through.
((and (tvar? a) (not (tvar-rigid? a))) (bind-tvar! a b form))
((and (tvar? b) (not (tvar-rigid? b))) (bind-tvar! b a form))
((or (tvar? a) (tvar? b)) (type-mismatch a b form))