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

treat dots with pairs inside properly

Browse Source 
closes racket/racket#1598
This commit is contained in:
Robby Findler 2017-01-30 21:32:45 -06:00
parent b8e763f420
commit ff00d309ff
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gui-lib/mrlib/syntax-browser.rkt
View File

@ -429,6 +429,9 @@ needed to really make this work:
(cons (loop (car val) #f) (cons (loop (car val) #f)
(lst-loop (cdr val)))] (lst-loop (cdr val)))]
[(null? val) '()] [(null? val) '()]
[(and (syntax? val) (pair? (syntax-e val)))
(define pr (syntax-e val))
(lst-loop pr)]
[else [else
(loop val enclosing-stx)])) (loop val enclosing-stx)]))
(pop!))] (pop!))]
@ -467,6 +470,16 @@ needed to really make this work:
(λ () (λ ()
(syntax-object->datum/record-paths (list x y))) (syntax-object->datum/record-paths (list x y)))
list) list)
(list '(x y)
(make-hash `(((0) . #f) ((1 0) . ,y) ((0 0) . ,x))))))
(let* ([x (datum->syntax #f 'x #f #f)]
[y (datum->syntax #f 'y #f #f)]
[ly (datum->syntax #f (list y) #f #f)])
(check-equal? (call-with-values
(λ ()
(syntax-object->datum/record-paths (cons x ly)))
list)
(list '(x y) (list '(x y)
(make-hash `(((0) . #f) ((1 0) . ,y) ((0 0) . ,x))))))) (make-hash `(((0) . #f) ((1 0) . ,y) ((0 0) . ,x)))))))