check tvars are ids before using free-identifier=?

2019-04-03 16:03:48 -04:00 · 2019-04-03 16:03:48 -04:00 · 6482fb0049
commit 6482fb0049
parent 215036e059
1 changed files with 1 additions and 1 deletions
--- a/type-expander.hl.rkt
+++ b/type-expander.hl.rkt
@ -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 …)))