Less polymorphic type for `syntax->datum'.
svn: r12163
This commit is contained in:
parent
b7df781999
commit
c4d183fcfc
|
@ -466,7 +466,7 @@
|
||||||
[datum->syntax (cl->*
|
[datum->syntax (cl->*
|
||||||
(-> (-opt (-Syntax Univ)) Sym (-Syntax Sym))
|
(-> (-opt (-Syntax Univ)) Sym (-Syntax Sym))
|
||||||
(-> (-opt (-Syntax Univ)) Univ (-Syntax Univ)))]
|
(-> (-opt (-Syntax Univ)) Univ (-Syntax Univ)))]
|
||||||
[syntax->datum (-poly (a) (-> (-Syntax a) Univ))]
|
[syntax->datum (-> (-Syntax Univ) Univ)]
|
||||||
[syntax-e (-poly (a) (-> (-Syntax a) a))]
|
[syntax-e (-poly (a) (-> (-Syntax a) a))]
|
||||||
[syntax-original? (-poly (a) (-> (-Syntax a) B))]
|
[syntax-original? (-poly (a) (-> (-Syntax a) B))]
|
||||||
[identifier? (make-pred-ty (-Syntax Sym))]
|
[identifier? (make-pred-ty (-Syntax Sym))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user