diff --git a/scribble-lib/scribble/eval.rkt b/scribble-lib/scribble/eval.rkt index 2df5beba..5f42914d 100644 --- a/scribble-lib/scribble/eval.rkt +++ b/scribble-lib/scribble/eval.rkt @@ -732,7 +732,7 @@ (define-syntax racketblock* (syntax-rules (eval:alts code:comment eval:check eval:no-prompt eval:error eval:result eval:results) [(_ #:escape id (code:comment . rest)) (racketblock0 #:escape id (code:comment . rest))] - [(_ #:escape id (eval:alts a b)) (racketblock #:escape id a)] + [(_ #:escape id (eval:alts a b)) (racketblock* #:escape id a)] [(_ #:escape id (eval:result a . _)) (racketinputblock #:escape id a)] [(_ #:escape id (eval:results a . _)) (racketinputblock #:escape id a)] [(_ #:escape id (eval:check a b)) (racketblock #:escape id a)] diff --git a/scribble-test/tests/scribble/docs/examples.scrbl b/scribble-test/tests/scribble/docs/examples.scrbl index 31f5e9b0..de7fe5a1 100644 --- a/scribble-test/tests/scribble/docs/examples.scrbl +++ b/scribble-test/tests/scribble/docs/examples.scrbl @@ -91,3 +91,8 @@ @examples[ (eval:alts (/ 100 0) (eval:results (list "(/ 1 0)" "'=") "getting +inf.0" "oops")) ] + +@examples[ +#:no-prompt +(eval:alts (define x 42) (define x 42)) +] diff --git a/scribble-test/tests/scribble/docs/examples.txt b/scribble-test/tests/scribble/docs/examples.txt index 6d2b03b3..50332944 100644 --- a/scribble-test/tests/scribble/docs/examples.txt +++ b/scribble-test/tests/scribble/docs/examples.txt @@ -98,3 +98,7 @@ Example: oops (/ 1 0) '= + +Example: + + (define x 42)