add expand and expand-once
svn: r10133
This commit is contained in:
parent
bf8dd8264e
commit
6ec49385a3
|
@ -480,6 +480,9 @@
|
||||||
|
|
||||||
;; syntax operations
|
;; syntax operations
|
||||||
|
|
||||||
|
[expand (-> (-Syntax Univ) (-Syntax Univ))]
|
||||||
|
[expand-once (-> (-Syntax Univ) (-Syntax Univ))]
|
||||||
|
|
||||||
[syntax-source (-poly (a) (-> (-Syntax a) Univ))]
|
[syntax-source (-poly (a) (-> (-Syntax a) Univ))]
|
||||||
[syntax-position (-poly (a) (-> (-Syntax a) (-opt N)))]
|
[syntax-position (-poly (a) (-> (-Syntax a) (-opt N)))]
|
||||||
[datum->syntax (cl->*
|
[datum->syntax (cl->*
|
||||||
|
|
Loading…
Reference in New Issue
Block a user