allow importing structs with unknown super-type

2021-04-15 10:54:10 -04:00 · 2021-04-15 10:54:10 -04:00 · 0191461137
parent 6b46be34f9
commit 0191461137
1 changed files with 1 additions and 1 deletions
--- a/racket/typed/core-types.rkt
+++ b/racket/typed/core-types.rkt
@ -749,7 +749,7 @@
             (match-define (list desc cons pred accs/rev muts sup) (extract-struct-info info))
             (when (false? (last accs/rev))
               (raise-syntax-error #f "number of slots must be exact" #'#,stx #'ucons))
-             (unless (equal? #t sup)
+             (unless (boolean? sup)
               (raise-syntax-error #f "structs with super-type not supported" #'#,stx #'ucons))
             (define accs (cleanup-accs #'ucons accs/rev))
             (define arity (length accs/rev))