Megatest

Artifact 27f7128851c7908edaaac9dce97e8ed01cc5bbf9:

• Executable file show-uncalled-procedures.scm — part of check-in [536b980f6a] at 2017-08-16 15:23:16 on branch v1.64 — factored out common code in show-uncalled-procedures.scm and trackback.scm (user: bjbarcla, size: 312) [annotate] [blame] [check-ins using] [more...]

(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)