diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 01:03:33 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 01:03:33 +0100 |
commit | f3e7214ef19391ed2b6a3f7ed41d7ca4e3f93082 (patch) | |
tree | 081e4835e71dfa28b1de1a35ece6c9afa98a5b01 /scripts | |
parent | Remove define-many. (diff) | |
download | calp-f3e7214ef19391ed2b6a3f7ed41d7ca4e3f93082.tar.gz calp-f3e7214ef19391ed2b6a3f7ed41d7ca4e3f93082.tar.xz |
Document module-dependants.
Diffstat (limited to '')
-rwxr-xr-x | scripts/module-dependants.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/scripts/module-dependants.scm b/scripts/module-dependants.scm index f1efb8cc..212a28c8 100755 --- a/scripts/module-dependants.scm +++ b/scripts/module-dependants.scm @@ -2,6 +2,13 @@ -e main -s !# +;;; Commentary: +;;; +;;; For a given module in the project, finds all other modules who uses that +;;; module, and break it down per symbol. +;;; +;;; Code: + (define module-dir (string-append (dirname (dirname (current-filename))) "/module")) @@ -102,7 +109,7 @@ (for-each (lambda (file) (format #t "• ~a~%" file)) files)) symbol-used-by) - (display (center-string "Unused" 80 #\= #\=)) (newline) + (display (center-string " Unused (except possibly internally) " 80 #\= #\=)) (newline) (for-each (lambda (symb) (format #t "• ~a~%" symb)) (lset-difference eqv? |