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

fix bug in the handling of side-conditions

Browse Source
This commit is contained in:
Robby Findler 2011-12-04 08:13:45 -06:00
parent 8b3fae79c2
commit f725066bf9
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/private/rewrite-side-conditions.rkt
View File

@ -44,7 +44,7 @@
(extract-names all-nts what bind-names? orig-stx) (extract-names all-nts what bind-names? orig-stx)
(let loop ([term orig-stx]) (let loop ([term orig-stx])
(syntax-case term (side-condition variable-except variable-prefix hole name in-hole hide-hole cross unquote) (syntax-case term (side-condition variable-except variable-prefix hole name in-hole hide-hole cross unquote and)
[(side-condition pre-pat (and)) [(side-condition pre-pat (and))
;; rewriting metafunctions (and possibly other things) that have no where, etc clauses ;; rewriting metafunctions (and possibly other things) that have no where, etc clauses
;; end up with side-conditions that are empty 'and' expressions, so we just toss them here. ;; end up with side-conditions that are empty 'and' expressions, so we just toss them here.

7
collects/redex/tests/tl-test.rkt
View File

@ -2487,6 +2487,13 @@
'x) 'x)
'(x1)) '(x1))
(test (let ([not-and
(λ () #f)])
(redex-match empty-language
(side-condition any_1 (not-and))
1))
#f)
(let () (let ()
;; tests where's ability to have redex patterns, not just syntax-case patterns ;; tests where's ability to have redex patterns, not just syntax-case patterns
(define-language var-lang [(x y z w) variable]) (define-language var-lang [(x y z w) variable])