Adjust type of dynamic-require (returns 1 value)

The implementation (and now docs) of dynamic-require
specifies that it can only return a single value, even
when the required binding is syntax.
This commit is contained in:
Asumu Takikawa 2015-02-12 14:18:04 -05:00
parent 7ae1247539
commit 177d1a7f68

View File

@ -2305,14 +2305,14 @@
(-poly (a)
(cl->* (-> mod (Un (one-of/c #f 0) -Void) -Void)
(-> mod (Un (one-of/c #f 0) -Void) (-> a) (Un -Void a))
(->opt mod Sym [(-> Univ)] ManyUniv))))]
(->opt mod Sym [(-> Univ)] Univ))))]
[dynamic-require-for-syntax
(let ((mod (Un -Module-Path -Resolved-Module-Path -Module-Path-Index)))
(-poly (a)
(cl->* (-> mod (-val #f) -Void)
(-> mod (-val #f) (-> a) (Un -Void a))
(->opt mod Sym [(-> Univ)] ManyUniv))))]
(->opt mod Sym [(-> Univ)] Univ))))]
[module-declared?
(->opt (Un -Module-Path -Resolved-Module-Path -Module-Path-Index)