suzanne.soy/type-expander
1
0
Fork 0
Code Issues 8 Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #12 from AlexKnauth/patch-1

Browse Source 
check tvars are ids before using free-identifier=?
This commit is contained in:
Georges Dupéron 2019-04-04 18:47:15 +02:00 committed by GitHub
commit de31adc4f0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
type-expander.hl.rkt
View File

@ -1387,7 +1387,7 @@ definitions.
@chunk[<define-type>
(define-syntax new-define-type
(syntax-parser
[(_ (~or name:id (name:id maybe-tvar …)) . whole-rest)
[(_ (~or name:id (name:id maybe-tvar:id …)) . whole-rest)
#:with (tvar …) (if (attribute maybe-tvar) #'(maybe-tvar …) #'())
#:with (tvar-not-ooo …) (filter (λ (tv) (not (free-identifier=? tv #'(… …))))
(syntax->list #'(tvar …)))