167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
;; (print "ignores: " (hash-table->alist ignores))
(for-each (lambda (dangler)
(let* ((fnname (conc (cadr dangler))))
;; (print "fnname="fnname" member: "(member fnname ignore-list))
(if (not (hash-table-exists? ignores fnname))
(apply print (intersperse dangler "\t"))
#;(print "skipping "fnname))))
(sort danglers (lambda (a b)(< (car a)(car b)))))))
;; (for-each print dangling-procs) ;; our product.
(define (get-stats fn)
(let* ((data (with-input-from-pipe (conc "grep '"fn"' *.scm") read-lines))
(files (delete-duplicates
(map (lambda (entry)
|
|
>
>
>
>
>
|
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
;; (print "ignores: " (hash-table->alist ignores))
(for-each (lambda (dangler)
(let* ((fnname (conc (cadr dangler))))
;; (print "fnname="fnname" member: "(member fnname ignore-list))
(if (not (hash-table-exists? ignores fnname))
(apply print (intersperse dangler "\t"))
#;(print "skipping "fnname))))
(sort danglers (lambda (a b)
(let ((ca (car a))
(cb (car b)))
(if (equal? ca cb)
(string<=? (conc (cadr a))(conc (cadr b)))
(< ca cb))))))))
;; (for-each print dangling-procs) ;; our product.
(define (get-stats fn)
(let* ((data (with-input-from-pipe (conc "grep '"fn"' *.scm") read-lines))
(files (delete-duplicates
(map (lambda (entry)
|