Location: util, 41 Lines
; Check if there is a description in util/descriptions ; for each .scm file in lib/, contrib/, and ext/. (load-from-library "hof.scm") (load-from-library "filter.scm") (load-from-library "regex.scm") (load-from-library "displaystar.scm") (load-from-library "hash-table.scm") (load-from-library "read-file.scm") (load-from-library "string-split.scm") (load-from-library "basename.scm") (define *descriptions* (make-hash-table)) (for-each (lambda (line) (hash-table-set! *descriptions* (car (string-split #\| line)) #t)) (with-input-from-file "util/descriptions" read-file)) (define (have-description? name) (and (hash-table-ref *descriptions* (basename name)) #t)) (for-each (lambda (scm) (if (not (have-description? scm)) (display* scm ": no description" #\newline))) (let ((re (re-comp ".scm$"))) (filter (curry re-match re) (apply append (map (lambda (x) (map (curry string-append x "/") (sys:readdir x))) '("lib" "contrib" "ext" "ext/csv" "ext/curses" "ext/sys-unix" "prog" "util"))))))