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

adjust syntax browser to work better for literal hashes and vectors

Browse Source 
closes PR 13537

original commit: 4b8813bb0e5ff5934c0ab1443fee7c245a757bb5
This commit is contained in:
Robby Findler 2013-02-23 20:25:50 -06:00
parent 2d510cb940
commit 7cba5db017
1 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/mrlib/syntax-browser.rkt
View File

@ -128,12 +128,22 @@ needed to really make this work:
(push!) (push!)
(record val enclosing-stx) (record val enclosing-stx)
(begin0 (begin0
(apply
vector
(let lst-loop ([val (vector->list val)]) (let lst-loop ([val (vector->list val)])
(cond (cond
[(pair? val) [(pair? val)
(cons (loop (car val) #f) (cons (loop (car val) #f)
(lst-loop (cdr val)))] (lst-loop (cdr val)))]
[(null? val) '()])) [(null? val) '()])))
(pop!))]
[(hash? val)
(push!)
(record val enclosing-stx)
(begin0
(for/hash ([(k v) (in-hash val)])
(values (loop k #f)
(loop v #f)))
(pop!))] (pop!))]
[else [else
(push!) (push!)
@ -241,11 +251,17 @@ needed to really make this work:
(small-newline info-port info-text))) (small-newline info-port info-text)))
(define/private (replace-syntaxes obj) (define/private (replace-syntaxes obj)
(let loop ([obj obj])
(cond (cond
[(pair? obj) (cons (replace-syntaxes (car obj)) [(pair? obj) (cons (loop (car obj)) (loop (cdr obj)))]
(replace-syntaxes (cdr obj)))]
[(syntax? obj) (make-object syntax-snip% obj)] [(syntax? obj) (make-object syntax-snip% obj)]
[else obj])) [(hash? obj)
(for/hash ([(k v) (in-hash obj)])
(values (loop k) (loop v)))]
[(vector? obj)
(for/vector ([v (in-vector obj)])
(loop v))]
[else obj])))
(define/private (insert/bold str) (define/private (insert/bold str)
(let ([pos (send info-text last-position)]) (let ([pos (send info-text last-position)])