add expand and expand-once

svn: r10133

original commit: 6ec49385a3309e105d7fdf2c4fec61650ac8dc3e
This commit is contained in:
Sam Tobin-Hochstadt 2008-06-04 20:16:51 +00:00
parent 6391dfbda9
commit c0936b3db6

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->*