syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Handle empty matcher in matcher-match-value

This commit is contained in:
Tony Garnock-Jones 2014-05-13 23:11:50 -04:00
parent f788caf754
commit 8210272054
1 changed files with 53 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
minimart/route.rkt
View File

@ -268,6 +268,8 @@
[(r1 r2) (walk r1 r2)]))))
(define (matcher-match-value r v)
(if (matcher-empty? r)
(set)
(let walk ((vs (list v)) (stack '(())) (r r))
(define (walk-wild vs stack)
(match (rlookup r ?)
@ -312,7 +314,7 @@
[(cons v rest)
(match (rlookup r v)
[#f (walk-wild rest stack)]
[k (walk rest stack k)])])])))
[k (walk rest stack k)])])]))))
(define (matcher-match-matcher re1 re2)
(let ()
@ -578,6 +580,12 @@
(string->list expectedstr))))
(walk rest)])))
(check-matches
#f
(list 'z 'x) ""
'foo ""
(list (list 'z (list 'z))) "")
(void (pretty-print-matcher
(matcher-union (pattern->matcher 'A (list (list ?) 'x))
(pattern->matcher 'B (list (list ?) 'y)))))