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

fix problems in lex-rename simplification; other tiny improvements and doc repairs

Browse Source 
svn: r12380

original commit: ad75c8aa580e4d32a976bd5983ab4f99a48496e5
This commit is contained in:
Matthew Flatt 2008-11-10 22:50:54 +00:00
parent 65af0d3f3b
commit 676b78504d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mzlib/pretty.ss
View File

@ -1089,12 +1089,13 @@
(define max-call-head-width 5) (define max-call-head-width 5)
(define (no-sharing? expr count apair? acdr) (define (no-sharing? expr count apair? acdr)
(if (and found (if (apair? expr)
(apair? expr) (if (and found
(hash-table-get found (acdr expr) #f)) (hash-table-get found (acdr expr) #f))
#f #f
(or (zero? count) (or (zero? count)
(no-sharing? (acdr expr) (sub1 count) apair? acdr)))) (no-sharing? (acdr expr) (sub1 count) apair? acdr)))
#f))
(define (style head expr apair? acar acdr) (define (style head expr apair? acar acdr)
(case (look-in-style-table head) (case (look-in-style-table head)