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

fix codeblock to use location only for current source

Browse Source
This commit is contained in:
Matthew Flatt 2015-06-09 07:09:11 -06:00
parent 2c45064376
commit c1df897ab3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,6 +124,7 @@
(loop (if (dont-stop? mode)
(dont-stop-val mode)
mode))))))]
[program-source 'prog]
[e (parameterize ([read-accept-reader #t])
((or expand
(lambda (stx)
@ -133,7 +134,7 @@
(let ([p (open-input-string bstr)])
(port-count-lines! p)
(let loop ()
(let ([v (read-syntax 'prog p)])
(let ([v (read-syntax program-source p)])
(cond
[expand v]
[(eof-object? v) null]
@ -141,7 +142,9 @@
[ids (let loop ([e e])
(cond
[(and (identifier? e)
(syntax-original? e))
(syntax-original? e)
(syntax-position e)
(eq? program-source (syntax-source e)))
(let ([pos (sub1 (syntax-position e))])
(list (list (lambda (str)
(to-element (syntax-property