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

make pretty-print graph numbering consistent

Browse Source 
svn: r1417
This commit is contained in:
Matthew Flatt 2005-11-27 13:19:31 +00:00
parent 39a37d1fb2
commit 0095637dd7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/pretty.ss
View File

@ -729,7 +729,8 @@
(and (hash-table? obj) print-hash-table?)))] (and (hash-table? obj) print-hash-table?)))]
[graph-ref (if can-multi [graph-ref (if can-multi
(and found (hash-table-get found obj (lambda () #f))) (and found (hash-table-get found obj (lambda () #f)))
#f)]) #f)]
[old-counter cycle-counter])
(if (and can-multi (if (and can-multi
(or (not graph-ref) (or (not graph-ref)
(not (unbox (mark-def graph-ref))))) (not (unbox (mark-def graph-ref)))))
@ -753,6 +754,7 @@
;; Doesn't fit on one line, so start over ;; Doesn't fit on one line, so start over
(begin (begin
(tentative-pretty-print-port-cancel a-pport) (tentative-pretty-print-port-cancel a-pport)
(set! cycle-counter old-counter)
(when graph-ref (when graph-ref
(expr-found pport graph-ref)) (expr-found pport graph-ref))
(pre-print pport obj) (pre-print pport obj)