add expand and expand-once
svn: r10133
This commit is contained in:
parent
bf8dd8264e
commit
6ec49385a3
|
@ -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->*
|
||||
|
|
Loading…
Reference in New Issue
Block a user