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

fix color on quasiauoted hash tables

Browse Source
This commit is contained in:
Matthew Flatt 2020-06-22 08:07:20 -06:00
parent 5ba2881996
commit 1f5419d10c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scribble-lib/scribble/racket.rkt
View File

@ -721,7 +721,9 @@
((loop init-line! quote-depth first-expr? #f) (car l) srcless-step) ((loop init-line! quote-depth first-expr? #f) (car l) srcless-step)
(lloop (cdr l) expr? #f 1)] (lloop (cdr l) expr? #f 1)]
[(forced-pair? l) [(forced-pair? l)
((loop init-line! quote-depth first-expr? #f) (forced-pair-car l) srcless-step) ;; forced pairs are for hash tables, where the `car` cannot be
;; unquoted: use +inf.0 for `quote-depth`
((loop init-line! +inf.0 first-expr? #f) (forced-pair-car l) srcless-step)
(lloop (forced-pair-cdr l) expr? #t 1)] (lloop (forced-pair-cdr l) expr? #t 1)]
[(mpair? l) [(mpair? l)
((loop init-line! quote-depth first-expr? #f) (mcar l) srcless-step) ((loop init-line! quote-depth first-expr? #f) (mcar l) srcless-step)
@ -774,7 +776,7 @@
[orig-col src-col]) [orig-col src-col])
(set! src-col (+ src-col delta)) (set! src-col (+ src-col delta))
(hash-set! next-col-map src-col dest-col) (hash-set! next-col-map src-col dest-col)
((loop init-line! (if expr? quote-depth +inf.0) expr? (and expr? (zero? quote-depth))) ((loop init-line! quote-depth expr? (and expr? (zero? quote-depth)))
(let*-values ([(l) (sort (hash-map (syntax-e c) cons) (let*-values ([(l) (sort (hash-map (syntax-e c) cons)
(lambda (a b) (lambda (a b)
(< (or (syntax-position (cdr a)) -inf.0) (< (or (syntax-position (cdr a)) -inf.0)