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