fixups for package installation

racket/info.rkt

@@ -4,6 +4,7 @@
                "turnstile-lib"
                "turnstile-example"
                "macrotypes-lib"
+               "rackunit-macrotypes-lib"
 	       "base"
 	       "data-lib"
 	       "net-lib"

racket/typed/core.rkt

@@ -54,7 +54,7 @@
 
 (module+ test
   (require rackunit)
-  (require turnstile/rackunit-typechecking))
+  (require rackunit/turnstile))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Needed Forms
@@ -1182,4 +1182,4 @@
               : (Instruction Bool ⊥ ⊥)
               -> (syndicate:transition #f (list-)))
   (check-type (quit) : (Instruction ⊥ ⊥ ⊥))
-  (check-type (quit (list)) : (Instruction ⊥ ⊥ ⊥)))
+  (check-type (quit (list)) : (Instruction ⊥ ⊥ ⊥)))

racket/typed/main.rkt

@@ -36,7 +36,7 @@
 
 (module+ test
   (require rackunit)
-  (require turnstile/rackunit-typechecking))
+  (require rackunit/turnstile))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Types
@@ -721,7 +721,7 @@ is meant to be
 
 (define-typed-syntax (λ [p s] ...) ≫
   #:with (([x:id τ:type] ...) ...) (stx-map pat-bindings #'(p ...))
-  [[x ≫ x- : τ :i (U) :o (U) :a (U)] ... ⊢ s ≫ s- (⇒ : τv) (⇒ :i τ1) (⇒ :o τ2) (⇒ :a τ3)] ...
+  [[x ≫ x- : τ] ... ⊢ s ≫ s- (⇒ : τv) (⇒ :i τ1) (⇒ :o τ2) (⇒ :a τ3)] ...
   ;; REALLY not sure how to handle p/p-/p.match-pattern,
   ;; particularly w.r.t. typed terms that appear in p.match-pattern
   [⊢ p ≫ _ ⇒ τ-p] ...
@@ -944,4 +944,4 @@ is meant to be
            (syntax-parse e
              [(~var _ class) #'#t]
              [_ #'#f]))
-         (test-result))]))
+         (test-result))]))

racket/typed/tests/basic-bad-assertion.rkt

@@ -0,0 +1,7 @@
+#lang typed/syndicate/roles
+
+(require rackunit/turnstile)
+
+(typecheck-fail (spawn (U)
+                       (start-facet x
+                                    (assert 42))))