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

commit 45093b8a6bf4116254bb4931844a03fb8334b0ba
parent fd9b85aa10fb2cc42409b5ab38d2fa86c6f2374c
Author: Sam Tobin-Hochstadt <samth@cs.indiana.edu>
Date:   Wed, 15 Apr 2020 12:54:30 -0400

Provide a distinguished source when reading in `codeblock`.

Closes racket/racket#3102.

Diffstat:
M
scribble-lib/scribble/private/manual-code.rkt
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/scribble-lib/scribble/private/manual-code.rkt b/scribble-lib/scribble/private/manual-code.rkt
@@ -124,7 +124,9 @@
                           (loop (if (dont-stop? mode)
                                     (dont-stop-val mode)
                                     mode))))))]
-           [program-source 'prog]
+           ;; use a source that both identifies the original code
+           ;; and is unique wrt eq? as used below
+           [program-source (or context bstr)]
            [e (parameterize ([read-accept-reader #t])
                 ((or expand 
                      (lambda (stx)