rename typed-lang-builder -> turnstile

macrotypes/examples/tests/infer-tests.rkt

@@ -1,5 +1,5 @@
 #lang s-exp "../infer.rkt"
-(require typed-lang-builder/examples/tests/rackunit-typechecking)
+(require turnstile/examples/tests/rackunit-typechecking)
 
 (typecheck-fail (λ (x) x) #:with-msg "could not infer type of x; add annotation\\(s\\)")
 

macrotypes/examples/tests/stlc+occurrence-tests.rkt

@@ -1,5 +1,5 @@
 #lang s-exp "../stlc+occurrence.rkt"
-(require typed-lang-builder/examples/tests/rackunit-typechecking)
+(require turnstile/examples/tests/rackunit-typechecking)
 
 ;; -----------------------------------------------------------------------------
 ;; basic types & syntax

macrotypes/examples/tests/stlc+overloading-tests.rkt

@@ -1,5 +1,5 @@
 #lang s-exp "../stlc+overloading.rkt"
-(require typed-lang-builder/examples/tests/rackunit-typechecking)
+(require turnstile/examples/tests/rackunit-typechecking)
 
 ;; -----------------------------------------------------------------------------
 ;; --- syntax for ψ types

turnstile/examples/exist.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+reco+var.rkt")
 (reuse #:from "stlc+rec-iso.rkt") ; want type=?, but only need to load current-type=?
 

turnstile/examples/ext-stlc.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+lit.rkt" #:except #%datum)
 (provide ⊔ (for-syntax current-join))
 

turnstile/examples/fomega.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "sysf.rkt" #:except #%datum ∀ Λ inst)
 (reuse String #%datum #:from "stlc+reco+var.rkt")
 

turnstile/examples/fomega2.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "sysf.rkt" #:except #%datum ∀ Λ inst);#:rename [~∀ ~sysf:∀])
 (reuse String #%datum #:from "stlc+reco+var.rkt")
 

turnstile/examples/fomega3.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "sysf.rkt" #:except #%datum ∀ Λ inst)
 (reuse String #%datum #:from "stlc+reco+var.rkt")
 (require (only-in "fomega.rkt" current-kind? ∀★? ★? kind?))

turnstile/examples/fsub.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+reco+sub.rkt" #:except +)
 (require (rename-in (only-in "sysf.rkt" ∀? ∀ ~∀) [~∀ ~sysf:∀] [∀ sysf:∀]))
  

turnstile/examples/mlish.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (require racket/fixnum racket/flonum
          (for-syntax macrotypes/type-constraints macrotypes/variance-constraints))
 

turnstile/examples/stlc+box.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+cons.rkt")
 
 ;; Simply-Typed Lambda Calculus, plus mutable references

turnstile/examples/stlc+cons.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+reco+var.rkt")
 
 ;; Simply-Typed Lambda Calculus, plus cons

turnstile/examples/stlc+effect.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+box.rkt" #:except ref deref := #%app λ)
 
 ;; Simply-Typed Lambda Calculus, plus mutable references

turnstile/examples/stlc+lit.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc.rkt")
 (provide define-primop)
 

turnstile/examples/stlc+rec-iso.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+tup.rkt")
 (reuse ∨ var case define-type-alias define #:from "stlc+reco+var.rkt")
 

turnstile/examples/stlc+reco+sub.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+sub.rkt" #:except #%app #%datum)
 (extends "stlc+reco+var.rkt" #:except #%datum +)
 ;;use type=? and eval-type from stlc+reco+var.rkt, not stlc+sub.rkt

turnstile/examples/stlc+reco+var.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+tup.rkt" #:except × ×? tup proj
                         #:rename [~× ~stlc:×])
 (provide × ∨ (for-syntax ~× ~×* ~∨ ~∨*))

turnstile/examples/stlc+sub.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+lit.rkt" #:except #%datum +)
 (reuse Bool String add1 #:from "ext-stlc.rkt")
 (require (prefix-in ext: (only-in "ext-stlc.rkt" #%datum))

turnstile/examples/stlc+tup.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "ext-stlc.rkt")
 
 (require (for-syntax racket/list))

turnstile/examples/stlc.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (provide only-in (for-syntax current-type=? types=?))
 
 (begin-for-syntax

turnstile/examples/sysf.rkt

@@ -1,4 +1,4 @@
-#lang typed-lang-builder
+#lang turnstile
 (extends "stlc+lit.rkt")
 (reuse #:from "stlc+rec-iso.rkt") ; want this type=?
 

turnstile/lang/reader.rkt

@@ -0,0 +1,2 @@
+#lang s-exp syntax/module-reader
+turnstile/turnstile

typed-lang-builder/lang/reader.rkt

@@ -1,2 +0,0 @@
-#lang s-exp syntax/module-reader
-typed-lang-builder/typed-lang-builder