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

fixed bug

Browse Source 
svn: r11105
This commit is contained in:
Robby Findler 2008-08-06 13:41:40 +00:00
parent ada4b6f9d0
commit f81cbc5db7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/redex/private/matcher-test.ss
View File

@ -51,6 +51,9 @@
(test-empty `hole (test-empty `hole
the-hole the-hole
(list (make-test-mtch (make-bindings (list)) the-hole none))) (list (make-test-mtch (make-bindings (list)) the-hole none)))
(test-empty '(in-hole (hole 2) 1)
'(1 2)
(list (make-test-mtch (make-bindings (list)) `(1 2) none)))
(test-empty '(in-hole (name E_1 ((hide-hole hole) hole)) x) (test-empty '(in-hole (name E_1 ((hide-hole hole) hole)) x)
`(,the-hole x) `(,the-hole x)

3
collects/redex/private/matcher.ss
View File

@ -196,7 +196,6 @@ before the pattern compiler is invoked.
[`(variable-prefix ,s) (void)] [`(variable-prefix ,s) (void)]
[`variable-not-otherwise-mentioned (void)] [`variable-not-otherwise-mentioned (void)]
[`hole (void)] [`hole (void)]
[`(hole ,s) (void)]
[(? symbol? s) [(? symbol? s)
(unless (regexp-match #rx"_" (symbol->string s)) (unless (regexp-match #rx"_" (symbol->string s))
(unless (regexp-match #rx"^\\.\\.\\." (symbol->string s)) (unless (regexp-match #rx"^\\.\\.\\." (symbol->string s))
@ -653,8 +652,6 @@ before the pattern compiler is invoked.
#f)] #f)]
[`hole [`hole
(values (match-hole none) #t)] (values (match-hole none) #t)]
[`(hole ,hole-id)
(values (match-hole (or hole-id none)) #t)]
[(? string?) [(? string?)
(values (values
(lambda (exp hole-info) (lambda (exp hole-info)