Fix types of kernel struct constructors to include parent fields.

Merge to 5.1.2.

collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt

@@ -1385,9 +1385,10 @@
                     exn:break
                     arity-at-least
                     date
-                    srcloc) -Void)
+                    srcloc) 
-
+              -Void)
-
+        [tc-e (raise (exn:fail:contract "1" (current-continuation-marks))) (t:Un)]
+        [tc-err (exn:fail:contract)]
         )
   (test-suite
    "check-type tests"

collects/typed-scheme/typecheck/tc-structs.rkt

@@ -288,16 +288,16 @@
      (c-> identifier? (or/c #f identifier?) (listof identifier?)
           (listof Type/c) (or/c #f identifier?) #;(listof fld?)
           any/c)
-  (let* ([parent-name (if parent (make-Name parent) #f)]
+  (define parent-name (if parent (make-Name parent) #f))
-         [parent-flds (if parent (get-parent-flds parent-name) null)])
+  (define parent-flds (if parent (get-parent-flds parent-name) null))
-    (let ((defs (mk/register-sty nm flds parent-name parent-flds tys
+  (define parent-tys (map fld-t parent-flds))
-                     #:mutable #t)))
+  (define defs (mk/register-sty nm flds parent-name parent-flds tys #:mutable #t))
-      (if kernel-maker
+  (if kernel-maker
-        (let* ((result-type (lookup-type-name nm))
+      (let* ([result-type (lookup-type-name nm)]
-               (ty (->* tys result-type)))
+             [ty (->* (append parent-tys tys) result-type)])
-          (register-type kernel-maker ty)
+        (register-type kernel-maker ty)
-          (cons (make-def-binding kernel-maker ty) defs))
+        (cons (make-def-binding kernel-maker ty) defs))
-        defs))))
+      defs))
 
 
 ;; syntax for tc/builtin-struct