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

fix pretty-print graph bug

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-14 08:05:35 -06:00
parent 5b54caebb0
commit b601aa1ca3
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/racket/pretty.rkt
View File

@ -655,7 +655,7 @@
(lambda (obj pport check? c-k d-k n-k) (lambda (obj pport check? c-k d-k n-k)
(let ([ref (and check? (let ([ref (and check?
found found
(hash-ref found obj #f))]) (hash-ref found obj #f))])
(if (and ref (unbox (mark-def ref))) (if (and ref (unbox (mark-def ref)))
(if c-k (if c-k
(c-k (mark-str ref)) (c-k (mark-str ref))
@ -756,7 +756,11 @@
(lambda (s) (out " . ") (out s) (out close)) (lambda (s) (out " . ") (out s) (out close))
(lambda () (lambda ()
(out " . ") (out " . ")
(wr-lst l check? (dsub1 depth) pair? car cdr open close qd) (check-expr-found ;; will find it!
l pport #t
#f #f
(lambda ()
(wr-lst l check? (dsub1 depth) pair? car cdr open close qd)))
(out close)) (out close))
(lambda () (lambda ()
(cond (cond

2
collects/tests/racket/pp-regression.rktd
View File

File diff suppressed because one or more lines are too long

1
collects/tests/racket/pretty.rktl
View File

@ -247,6 +247,7 @@
#(1 2 3 4 5) #(1 2 3 4 5)
(read (open-input-string "(#0=() . #0#)")) (read (open-input-string "(#0=() . #0#)"))
(read (open-input-string "#1=(1 . #1#)")) (read (open-input-string "#1=(1 . #1#)"))
(read (open-input-string "#1={#0={1 2 . #2={#0# . #1#}} . #2#}"))
(map box (make #f)) (map box (make #f))
(make #f) (make #f)
(make-pprec 1 2) (make-pprec 1 2)