scribble/example: Don't inset twice when using alts with #:no-prompt

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)]

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))
+]

scribble-test/tests/scribble/docs/examples.txt

@@ -98,3 +98,7 @@ Example:
   oops          
   (/ 1 0)       
   '=            
+
+Example:
+
+  (define x 42)