suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

rackety framework and tools docs

Browse Source 
original commit: 6563ef6812bfc2ea8921165d12cb78e74dca4626
This commit is contained in:
Matthew Flatt 2010-05-08 07:36:54 -06:00
parent 96f8dfdd6b
commit d681de23ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/racket.rkt
View File

@ -487,7 +487,7 @@
(let ([i (cadr (syntax->list c))]) (let ([i (cadr (syntax->list c))])
(set! src-col (or (syntax-column i) src-col)) (set! src-col (or (syntax-column i) src-col))
(hash-set! next-col-map src-col dest-col) (hash-set! next-col-map src-col dest-col)
((loop init-line! (+ quote-depth quote-delta) expr? #f) i))))] ((loop init-line! (max 0 (+ quote-depth quote-delta)) expr? #f) i))))]
[(and (pair? (syntax-e c)) [(and (pair? (syntax-e c))
(or (not expr?) (or (not expr?)
(positive? quote-depth) (positive? quote-depth)