suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Provide a distinguished source when reading in codeblock.

Browse Source 
Closes racket/racket#3102.
This commit is contained in:
Sam Tobin-Hochstadt 2020-04-15 12:54:30 -04:00
parent fd9b85aa10
commit 45093b8a6b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scribble-lib/scribble/private/manual-code.rkt
View File

@ -124,7 +124,9 @@
(loop (if (dont-stop? mode) (loop (if (dont-stop? mode)
(dont-stop-val mode) (dont-stop-val mode)
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]) [e (parameterize ([read-accept-reader #t])
((or expand ((or expand
(lambda (stx) (lambda (stx)