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

Fixes matching of prefab struct literals

Browse Source 
Fixes PR 12298
This commit is contained in:
Casey Klein 2011-10-17 19:37:16 -05:00
parent 4a3997ac1c
commit 57a8ed5c79
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/private/matcher.rkt
View File

@ -780,7 +780,7 @@ before the pattern compiler is invoked.
[else [else
(values (values
(lambda (exp hole-info) (lambda (exp hole-info)
(and (eqv? pattern exp) (and (equal? pattern exp)
(list (make-mtch (make-bindings null) (list (make-mtch (make-bindings null)
(build-flat-context exp) (build-flat-context exp)
none)))) none))))

2
collects/redex/tests/matcher-test.rkt
View File

@ -31,6 +31,8 @@
(test-empty "a" '(x) #f) (test-empty "a" '(x) #f)
(test-empty "a" '() #f) (test-empty "a" '() #f)
(test-empty "a" "a" (list (make-test-mtch (make-bindings null) "a" none))) (test-empty "a" "a" (list (make-test-mtch (make-bindings null) "a" none)))
(test-empty #s(x 1) #s(x 1) (list (make-test-mtch (make-bindings null) #s(x 1) none)))
(test-empty #s(x 1) #s(x 2) #f)
(test-empty 'number 1 (list (make-test-mtch (make-bindings (list (make-bind 'number 1))) 1 none))) (test-empty 'number 1 (list (make-test-mtch (make-bindings (list (make-bind 'number 1))) 1 none)))
(test-empty 'number 'x #f) (test-empty 'number 'x #f)
(test-empty 'number '() #f) (test-empty 'number '() #f)