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

look -- a let!

Browse Source 
svn: r12085
This commit is contained in:
Eli Barzilay 2008-10-21 19:52:40 +00:00
parent 695c8979ec
commit b349b4baa2
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -267,20 +267,24 @@
;; regexp stuff ;; regexp stuff
[regexp-match [regexp-match
(cl-> (let ([?outp (-opt -Output-Port)]
[((*Un -String -Regexp) -String) (-opt (-lst (-opt -String)))] [?N (-opt N)]
[(-Pattern -String) (-opt (-lst (-opt (*Un -Bytes -String))))] [optlist (lambda (t) (-opt (-lst (-opt t))))]
[(-Pattern -String N) (-opt (-lst (-opt (*Un -Bytes -String))))] [-StrRx (*Un -String -Regexp -PRegexp)]
[(-Pattern -String N (-opt N)) (-opt (-lst (-opt (*Un -Bytes -String))))] [-BtsRx (*Un -Bytes -Byte-Regexp -Byte-PRegexp)]
[(-Pattern -String N (-opt N) (-opt -Output-Port)) (-lst (-opt (*Un -Bytes -String)))] [-InpBts (*Un -Input-Port -Bytes)])
[(-Pattern -String (-opt N) (-opt -Output-Port)) (-lst (-opt (*Un -Bytes -String)))] (cl-> [(-StrRx -String ) (optlist -String)]
[(-Pattern -String (-opt -Output-Port)) (-lst (-opt (*Un -Bytes -String)))] [(-StrRx -String N ) (optlist -String)]
[(-Pattern (*Un -Input-Port -Bytes)) (-opt (-lst (-opt -Bytes)))] [(-StrRx -String N ?N ) (optlist -String)]
[(-Pattern (*Un -Input-Port -Bytes) N) (-opt (-lst (-opt -Bytes)))] [(-StrRx -String N ?N ?outp) (optlist -String)]
[(-Pattern (*Un -Input-Port -Bytes) N (-opt N)) (-opt (-lst (-opt -Bytes)))] [(-BtsRx -String ) (optlist -Bytes)]
[(-Pattern (*Un -Input-Port -Bytes) (-opt N)) (-opt (-lst (-opt -Bytes)))] [(-BtsRx -String N ) (optlist -Bytes)]
[(-Pattern (*Un -Input-Port -Bytes) N (-opt N) (-opt -Output-Port)) (-lst (-opt -Bytes))])] [(-BtsRx -String N ?N ) (optlist -Bytes)]
[(-BtsRx -String N ?N ?outp) (optlist -Bytes)]
[(-Pattern -InpBts ) (optlist -Bytes)]
[(-Pattern -InpBts N ) (optlist -Bytes)]
[(-Pattern -InpBts N ?N ) (optlist -Bytes)]
[(-Pattern -InpBts N ?N ?outp) (optlist -Bytes)]))]
[number->string (N . -> . -String)] [number->string (N . -> . -String)]