From b5556b204bc2bf7f991b8176b139808ceebf551a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 6 Apr 2022 23:03:40 +0200 Subject: Rename filename-extension{ => ?}. --- scripts/module-dependants.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scripts') 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))))))) -- cgit v1.2.3