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

define/match: fix docs & more examples

Browse Source
This commit is contained in:
Asumu Takikawa 2012-09-18 13:35:28 -04:00
parent e81cd0d8d7
commit ddaef42576
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/unstable/scribblings/match.scrbl
View File

@ -52,7 +52,8 @@ result value of @racket[rhs-expr], and continues matching each subsequent
(define/match (head args) (define/match (head args)
match*-clause ...) match*-clause ...)
([head id (head args)] ([head id (head args)]
[args (arg ...)] [args (code:line arg ...)
(code:line arg ... @#,racketparenfont{.} rest-id)]
[arg arg-id [arg arg-id
[arg-id default-expr] [arg-id default-expr]
(code:line keyword arg-id) (code:line keyword arg-id)
@ -80,6 +81,14 @@ result value of @racket[rhs-expr], and continues matching each subsequent
[(_ _) #f]) [(_ _) #f])
((f "ape") #:y '(5 2 3)) ((f "ape") #:y '(5 2 3))
((f "dog")) ((f "dog"))
(define/match (g x y . rst)
[(0 0 '()) #t]
[(5 5 '(5 5)) #t]
[(_ _ _) #f])
(g 0 0)
(g 5 5 5 5)
(g 1 2)
] ]
} }