diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-06 23:03:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-06 23:03:40 +0200 |
| commit | b5556b204bc2bf7f991b8176b139808ceebf551a (patch) | |
| tree | 09c1fc31c5ce770445ed26048cc0ecd191dfc55d /scripts | |
| parent | Document part of srfi-41 utils. (diff) | |
| download | calp-b5556b204bc2bf7f991b8176b139808ceebf551a.tar.gz calp-b5556b204bc2bf7f991b8176b139808ceebf551a.tar.xz | |
Rename filename-extension{ => ?}.
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/module-dependants.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/module-dependants.scm b/scripts/module-dependants.scm index 212a28c8..95e5bf53 100755 --- a/scripts/module-dependants.scm +++ b/scripts/module-dependants.scm @@ -49,7 +49,7 @@ (define (regular-file? filename) (eq? 'regular (stat:type (cstat filename)))) -(define (filename-extension ext) +(define (filename-extension? ext) (let ((re (make-regexp (string-append ((@ (texinfo string-utils) escape-special-chars) ext "^$[]()*." #\\) @@ -88,7 +88,7 @@ ))) ) (delete target-file - (filter (filename-extension ".scm") + (filter (filename-extension? ".scm") (filter regular-file? (find-all-files-under module-dir))))))) |