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)
(let ([ref (and check?
found
(hash-ref found obj #f))])
(hash-ref found obj #f))])
(if (and ref (unbox (mark-def ref)))
(if c-k
(c-k (mark-str ref))
@ -756,7 +756,11 @@
(lambda (s) (out " . ") (out s) (out close))
(lambda ()
(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))
(lambda ()
(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)
(read (open-input-string "(#0=() . #0#)"))
(read (open-input-string "#1=(1 . #1#)"))
(read (open-input-string "#1={#0={1 2 . #2={#0# . #1#}} . #2#}"))
(map box (make #f))
(make #f)
(make-pprec 1 2)