syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use write for keys rather than display in pretty-print-matcher

This commit is contained in:
Tony Garnock-Jones 2014-06-17 21:53:09 -04:00
parent 25ee780598
commit 77f876c737
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
minimart/route.rkt
View File

@ -859,10 +859,12 @@
(d " ") (d " ")
(define keystr (call-with-output-string (define keystr (call-with-output-string
(lambda (p) (lambda (p)
(if (struct-type? key) (cond
(begin (display "<s:" p) [(struct-type? key)
(display (struct-type-name key) p)) (display "<s:" p)
(display key p))))) (display (struct-type-name key) p)]
[else
(write key p)]))))
(d keystr) (d keystr)
(walk (+ i 1 (string-length keystr)) k) (walk (+ i 1 (string-length keystr)) k)
#t))])) #t))]))