/[guile]/guile/guile-core/scripts/api-diff
ViewVC logotype

Diff of /guile/guile-core/scripts/api-diff

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ttn, Sun May 12 03:46:26 2002 UTC revision 1.3 by ttn, Sun May 19 05:12:04 2002 UTC
# Line 113  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 113  exec ${GUILE-guile} -l $0 -c "(apply $ma
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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26