summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorJan (janneke) Nieuwenhuizen <janneke@gnu.org>2020-08-13 18:54:22 +0200
committerJan (janneke) Nieuwenhuizen <janneke@gnu.org>2020-08-13 18:54:22 +0200
commit855f3948eca7bb56fdbbc3d47a6d485ccf012a3c (patch)
tree51c48d968ce8d7fd4f506e17f64313e0041027b6 /module
parent3db293a71dc93776ee262063d40b2e8304c49ac6 (diff)
downloadguile-855f3948eca7bb56fdbbc3d47a6d485ccf012a3c.tar.gz
ice-9 ftw: Use 'absolute-file-name?' in 'nftw'.
* module/ice-9/ftw.scm (abs?): Remove. (nftw): Use 'absolute-file-name?' instead.
Diffstat (limited to 'module')
-rw-r--r--module/ice-9/ftw.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/module/ice-9/ftw.scm b/module/ice-9/ftw.scm
index ac4dd608a..dd6f49089 100644
--- a/module/ice-9/ftw.scm
+++ b/module/ice-9/ftw.scm
@@ -231,9 +231,6 @@
(substring result 1 (string-length result)))
(loop (cdr nodes) (string-append result "/" (car nodes))))))
-(define (abs? filename)
- (char=? #\/ (string-ref filename 0)))
-
;; `visited?-proc' returns a test procedure VISITED? which when called as
;; (VISITED? stat-obj) returns #f the first time a distinct file is seen,
;; then #t on any subsequent sighting of it.
@@ -347,7 +344,7 @@
(lambda (s) #t)))
(base-sub (lambda (name base) (substring name 0 base)))
(maybe-cd (if (memq 'chdir control-flags)
- (if (abs? filename)
+ (if (absolute-file-name? filename)
(lambda (fullname base)
(or (= 0 base)
(chdir (base-sub fullname base))))