113 |
(old-count (and old (length old))) |
(old-count (and old (length old))) |
114 |
(new-count (and new (length new))) |
(new-count (and new (length new))) |
115 |
(delta (and old new (- new-count old-count)))) |
(delta (and old new (- new-count old-count)))) |
116 |
(format #t " ~5@A ~5@A ~5@A ~A\n" |
(format #t " ~5@A ~5@A : " |
117 |
(or old-count "-") |
(or old-count "-") |
118 |
(or new-count "-") |
(or new-count "-")) |
119 |
(or delta "-") |
(cond ((and old new) |
120 |
group))) |
(let ((add-count 0) (sub-count 0)) |
121 |
|
(diff+note! |
122 |
|
old new |
123 |
|
(lambda (subs) |
124 |
|
(set! sub-count (length subs))) |
125 |
|
(lambda (adds) |
126 |
|
(set! add-count (length adds))) |
127 |
|
(lambda () #t)) |
128 |
|
(format #t "~5@D ~5@D : ~5@D" |
129 |
|
add-count (- sub-count) delta))) |
130 |
|
(else |
131 |
|
(format #t "~5@A ~5@A : ~5@A" "-" "-" "-"))) |
132 |
|
(format #t " ~A\n" group))) |
133 |
(sort (union g-old-names g-new-names) |
(sort (union g-old-names g-new-names) |
134 |
(lambda (a b) |
(lambda (a b) |
135 |
(string<? (symbol->string a) |
(string<? (symbol->string a) |