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

Handle failing case for relation generation.

Browse Source
This commit is contained in:
Burke Fetscher 2012-11-30 17:30:34 -06:00
parent 7c7c1fbafc
commit 26766e413a
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/redex/private/generate-term.rkt
View File

@ -441,7 +441,8 @@
(λ () (λ ()
(match (gen-proc) (match (gen-proc)
[`(,jf-name (,trms (... ...))) [`(,jf-name (,trms (... ...)))
`(,jf-name ,@trms)]))) `(,jf-name ,@trms)]
[#f #f])))
#`(make-jf-gen/proc 'jf/mf-id #,clauses lang-id 'pat size))))] #`(make-jf-gen/proc 'jf/mf-id #,clauses lang-id 'pat size))))]
[_ [_
(raise-syntax-error 'redex-generator (raise-syntax-error 'redex-generator

3
collects/redex/tests/gen-test.rkt
View File

@ -73,6 +73,9 @@
(test-equal (generate-term nats #:satisfying (sum (s z) (s z) n) +inf.0) (test-equal (generate-term nats #:satisfying (sum (s z) (s z) n) +inf.0)
'(sum (s z) (s z) (s (s z)))) '(sum (s z) (s z) (s (s z))))
(test-equal (generate-term nats #:satisfying (sum z z (s z)) 5)
#f)
(for ([_ 100]) (for ([_ 100])
(match (generate-term nats #:satisfying (sum n_1 n_2 n_3) 5) (match (generate-term nats #:satisfying (sum n_1 n_2 n_3) 5)
[`(sum ,l ,r ,res) [`(sum ,l ,r ,res)