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

add split-at and append*

Browse Source 
svn: r15119
This commit is contained in:
Sam Tobin-Hochstadt 2009-06-08 15:54:05 +00:00
parent f08fb96f88
commit 5139875199
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -584,6 +584,10 @@
[append-map
(-polydots (c a b) ((list ((list a) (b b) . ->... . (-lst c)) (-lst a))
((-lst b) b) . ->... .(-lst c)))]
[split-at
(-poly (a) ((list (-lst a)) -Integer . ->* . (-values (list (-lst a) (-lst a)))))]
[append*
(-poly (a) ((-lst (-lst a)) . -> . (-lst a)))]
;; scheme/tcp
[tcp-listener? (make-pred-ty -TCP-Listener)]