Megatest: show-uncalled-procedures.scm at [1d0be73485]

File show-uncalled-procedures.scm artifact 27f7128851 part of check-in 1d0be73485

(include "codescanlib.scm")

(define (show-danglers)
  (let* ((all-scm-files (glob "*.scm"))
         (xref (get-xref all-scm-files))
         (dangling-procs
          (map car (filter (lambda (x) (equal? 1 (length x))) xref))))
    (for-each print dangling-procs) ;; our product.
    ))

(show-danglers)