add expand and expand-once

svn: r10133
This commit is contained in:
Sam Tobin-Hochstadt 2008-06-04 20:16:51 +00:00
parent bf8dd8264e
commit 6ec49385a3

View File

@ -480,6 +480,9 @@
;; syntax operations
[expand (-> (-Syntax Univ) (-Syntax Univ))]
[expand-once (-> (-Syntax Univ) (-Syntax Univ))]
[syntax-source (-poly (a) (-> (-Syntax a) Univ))]
[syntax-position (-poly (a) (-> (-Syntax a) (-opt N)))]
[datum->syntax (cl->*