type for append-map

svn: r14579
2009-04-21 22:51:55 +00:00 · 2009-04-21 22:51:55 +00:00 · 062008c758
commit 062008c758
parent 1edd4770f4
1 changed files with 3 additions and 0 deletions
--- a/collects/typed-scheme/private/base-env.ss
+++ b/collects/typed-scheme/private/base-env.ss
@ -571,6 +571,9 @@
        (cl->*
         ((-lst a) . -> . (-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
 [tcp-listener? (make-pred-ty -TCP-Listener)]