suzanne.soy/racket
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
This commit is contained in:
Robby Findler 2013-02-23 20:25:50 -06:00
parent 814b9e490c
commit 4b8813bb0e
1 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -128,12 +128,22 @@ needed to really make this work:
(push!)
(record val enclosing-stx)
(begin0
(let lst-loop ([val (vector->list val)])
(cond
[(pair? val)
(cons (loop (car val) #f)
(lst-loop (cdr val)))]
[(null? val) '()]))
(apply
vector
(let lst-loop ([val (vector->list val)])
(cond
[(pair? val)
(cons (loop (car val) #f)
(lst-loop (cdr 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!))]
[else
(push!)
@ -241,11 +251,17 @@ needed to really make this work:
(small-newline info-port info-text)))
(define/private (replace-syntaxes obj)
(cond
[(pair? obj) (cons (replace-syntaxes (car obj))
(replace-syntaxes (cdr obj)))]
[(syntax? obj) (make-object syntax-snip% obj)]
[else obj]))
(let loop ([obj obj])
(cond
[(pair? obj) (cons (loop (car obj)) (loop (cdr obj)))]
[(syntax? obj) (make-object syntax-snip% 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)
(let ([pos (send info-text last-position)])
@ -575,10 +591,10 @@ needed to really make this work:
`(pair ,(cons (marshall-object (car obj))
(marshall-object (cdr obj))))]
[(or (symbol? obj)
(char? obj)
(number? obj)
(char? obj)
(number? obj)
(string? obj)
(boolean? obj)
(boolean? obj)
(null? obj))
`(other ,obj)]
[else (string->symbol (format "unknown-object: ~s" obj))]))