move patterns to core expressions

racket/typed/core-expressions.rkt

@@ -1,6 +1,8 @@
 #lang turnstile
 
-(provide ann
+(provide bind
+         discard
+         ann
          if
          when
          unless
@@ -16,6 +18,19 @@
 (require (only-in "prim.rkt" Bool #%datum))
 (require (postfix-in - racket/match))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Patterns
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-typed-syntax (bind x:id τ:type) ≫
+  ----------------------------------------
+  [⊢ (error- 'bind "escaped") (⇒ : (Bind τ))])
+
+(define-typed-syntax discard
+  [_ ≫
+   --------------------
+   [⊢ (error- 'discard "escaped") (⇒ : Discard)]])
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Core-ish forms
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

racket/typed/roles.rkt

@@ -346,19 +346,6 @@
   ------------------------------
   [⊢ (syndicate:message e-) (⇒ : (Message τ))])
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Patterns
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(define-typed-syntax (bind x:id τ:type) ≫
-  ----------------------------------------
-  [⊢ (error- 'bind "escaped") (⇒ : (Bind τ))])
-
-(define-typed-syntax discard
-  [_ ≫
-   --------------------
-   [⊢ (error- 'discard "escaped") (⇒ : Discard)]])
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Ground Dataspace
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;