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

adjust docs for check-metafunction to make the example

Browse Source 
use more representative

closes PR 13614
This commit is contained in:
Robby Findler 2013-03-17 08:42:40 -05:00
parent 99ff0adbfd
commit 0dd7d8f60b
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1936,20 +1936,23 @@ Like @racket[check-reduction-relation] but for metafunctions.
containing arguments to the metafunction. Similarly, @racket[prepare-expr] containing arguments to the metafunction. Similarly, @racket[prepare-expr]
produces and consumes argument lists.} produces and consumes argument lists.}
@(redex-eval '(random-seed 0))
@examples[ @examples[
#:eval redex-eval #:eval redex-eval
(define-language empty-lang) (define-language empty-lang)
(random-seed 0)
(define-metafunction empty-lang (define-metafunction empty-lang
Σ : number ... -> number Σ : number ... -> number
[(Σ) 0] [(Σ) 0]
[(Σ number) number] [(Σ number) number]
[(Σ number_1 number_2 number_3 ...) [(Σ number_1 number_2) ,(+ (term number_1) (term number_2))]
(Σ ,(+ (term number_1) (term number_2)) number_3 ...)]) [(Σ number_1 number_2 ...) (Σ number_1 (Σ number_2 ...))])
(check-metafunction Σ (λ (args) (printf "~s\n" args)) #:attempts 2)] (check-metafunction Σ (λ (args)
(printf "trying ~s\n" args)
(equal? (apply + args)
(term (Σ ,@args))))
#:attempts 2)]
@defproc[(default-attempt-size [n natural-number/c]) natural-number/c]{ @defproc[(default-attempt-size [n natural-number/c]) natural-number/c]{
The default value of the @racket[#:attempt-size] argument to The default value of the @racket[#:attempt-size] argument to