Small optimization
This commit is contained in:
parent
c05180c492
commit
f93d329f48
|
@ -47,7 +47,9 @@
|
|||
(define (maybe-dest dest-pat-stx pat)
|
||||
(match dest-pat-stx
|
||||
['_ pat]
|
||||
[_ `(and ,dest-pat-stx ,pat)]))
|
||||
[_ (match pat
|
||||
['_ dest-pat-stx]
|
||||
[_ `(and ,dest-pat-stx ,pat)])]))
|
||||
|
||||
(define (pattern->match-pattern pattern dest-pat-stx)
|
||||
(match (unwrap pattern)
|
||||
|
|
Loading…
Reference in New Issue