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

fix docs for redex-generator

Browse Source
This commit is contained in:
Burke Fetscher 2013-05-17 15:26:38 -05:00
parent 4aed0897a2
commit 4d9cce823b
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/redex/scribblings/ref.scrbl
View File

@ -1950,11 +1950,18 @@ term that does not match @racket[pattern].}
@examples[#:eval @examples[#:eval
redex-eval redex-eval
(define gen-sum (redex-generator nats (sum n_1 n_2 n_3) 5)) (define-language L
(gen-sum) (nat ::= Z (S nat)))
(gen-sum) (define-judgment-form L
(gen-sum) #:mode (sum I I O)
(gen-sum)] [---------------
(sum Z nat nat)]
[(sum nat_1 nat_2 nat_3)
-------------------------------
(sum (S nat_1) nat_2 (S nat_3))])
(define gen-sum (redex-generator L (sum nat_1 nat_2 nat_3) 3))
(for/list ([_ (in-range 5)])
(gen-sum))]
} }
@defstruct[counterexample ([term any/c]) #:inspector #f]{ @defstruct[counterexample ([term any/c]) #:inspector #f]{