Add type for in-directory.

This commit is contained in:
Sam Tobin-Hochstadt 2012-10-07 17:45:09 -04:00
parent 630a77cea8
commit 724aee0188

View File

@ -942,6 +942,8 @@
[make-weak-custom-hash (->opt (-> Univ Univ Univ) (-> Univ -Nat) [(-> Univ -Nat)] Univ)] [make-weak-custom-hash (->opt (-> Univ Univ Univ) (-> Univ -Nat) [(-> Univ -Nat)] Univ)]
;Section 3.14 (Sequences and Streams) ;Section 3.14 (Sequences and Streams)
[in-directory (-> (-seq -Path))]
[sequence? (make-pred-ty (-seq Univ))] [sequence? (make-pred-ty (-seq Univ))]
[stop-before (-poly (a) ((-seq a) (a . -> . Univ) . -> . (-seq a)))] [stop-before (-poly (a) ((-seq a) (a . -> . Univ) . -> . (-seq a)))]
[stop-after (-poly (a) ((-seq a) (a . -> . Univ) . -> . (-seq a)))] [stop-after (-poly (a) ((-seq a) (a . -> . Univ) . -> . (-seq a)))]