bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 10ce45004b897c04a44de392624e16073845828d
parent 0d0fda83215ea6fdcc0a02546322250cbc6a5303
Author: Alexis King <lexi.lambda@gmail.com>
Date:   Mon,  6 Nov 2017 14:16:43 -0800

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

Diffstat:
M
scribble-lib/scribble/eval.rkt
 | 
2
+-
M
scribble-test/tests/scribble/docs/examples.scrbl
 | 
5
+++++
M
scribble-test/tests/scribble/docs/examples.txt
 | 
4
++++

3 files changed, 10 insertions(+), 1 deletion(-)
diff --git 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
@@ -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
@@ -98,3 +98,7 @@ Example:
   oops          
   (/ 1 0)       
   '=            
+
+Example:
+
+  (define x 42)