23 lines
518 B
Racket
23 lines
518 B
Racket
#lang typed/racket
|
|
|
|
(provide isexp?
|
|
try-any->isexp
|
|
any->isexp+non-sexp
|
|
CoreSexp
|
|
ISyntax
|
|
ISyntax-E
|
|
ISyntaxOf
|
|
ISyntaxOf-E
|
|
ISyntax/Non
|
|
ISyntax/Non-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")
|
|
|