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
the-hole
(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)
`(,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-not-otherwise-mentioned (void)]
[`hole (void)]
[`(hole ,s) (void)]
[(? symbol? 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)]
[`hole
(values (match-hole none) #t)]
[`(hole ,hole-id)
(values (match-hole (or hole-id none)) #t)]
[(? string?)
(values
(lambda (exp hole-info)