Provide stuff

comments/syntax-properties-typed.rkt

@@ -7,6 +7,8 @@
          extract-first-comments
          extract-comments-after)
 
+(require "typed-syntax.rkt")
+
 (define-type First-Comments
   (Rec R (Pairof (U #f (Pairof (Syntaxof 'saved-props+srcloc)
                                R))

comments/typed-syntax-convert2.rkt

@@ -17,6 +17,8 @@
          ISyntax-E
          (struct-out NonSyntax)
          ;(struct-out NonSexp) ; already exported in typed-syntax-convert.rkt
+         NonSyntaxOf
+         NonSexpOf
          any->isyntax
          syntax->isyntax
          any->isyntax-e)

comments/typed-syntax.rkt

@@ -3,8 +3,18 @@
 (provide isexp?
          try-any->isexp
          any->isexp+non-sexp
-         CoreSexp)
+         CoreSexp
+         ISyntaxOf
+         ISyntaxOf-E
+         ISyntax
+         ISyntax-E
+         NonSyntaxOf
+         NonSexpOf
+         any->isyntax ;; TODO: make wrappers for these, which discard the second value
+         syntax->isyntax
+         any->isyntax-e)
 
 (require "typed-syntax-convert.rkt"
+         "typed-syntax-convert2.rkt"
          "typed-syntax-predicate.rkt")