suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

type for append-map

Browse Source 
svn: r14579
This commit is contained in:
Sam Tobin-Hochstadt 2009-04-21 22:51:55 +00:00
parent 1edd4770f4
commit 062008c758
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/private/base-env.ss
View File

@ -571,6 +571,9 @@
(cl->* (cl->*
((-lst a) . -> . (-lst a)) ((-lst a) . -> . (-lst a))
((-lst a) (a a . -> . Univ) . -> . (-lst a))))] ((-lst a) (a a . -> . Univ) . -> . (-lst a))))]
[append-map
(-polydots (c a b) ((list ((list a) (b b) . ->... . (-lst c)) (-lst a))
((-lst b) b) . ->... .(-lst c)))]
;; scheme/tcp ;; scheme/tcp
[tcp-listener? (make-pred-ty -TCP-Listener)] [tcp-listener? (make-pred-ty -TCP-Listener)]