mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 08:40:21 +02:00
Code Activity

Fix pattern variable extraction in match' with ..1'.

Browse source 
* module/ice-9/match.upstream.scm (match-extract-vars): Support `..1'.
This commit is contained in:
Ludovic Courtès 2010-09-27 23:52:10 +02:00
parent 1ffed5aa95
commit f2ee6341ba
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/match.test
View file

@ -77,6 +77,11 @@
(((and x (? symbol?)) ..1)
(equal? x '(a b c)))))
(pass-if "list ..1, nested"
(match '((1 2) (3 4))
(((x ..1) ..1)
(equal? x '((1 2) (3 4))))))
(pass-if "tree"
(let ((tree '(one (two 2) (three 3 (and 4 (and 5))))))
(match tree