Provide a distinguished source when reading in codeblock.

Closes racket/racket#3102.
2020-04-15 12:54:30 -04:00 · 2020-04-15 12:54:30 -04:00 · 45093b8a6b
commit 45093b8a6b
parent fd9b85aa10
1 changed files with 3 additions and 1 deletions
--- 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)