diff options
author | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2020-08-13 18:54:22 +0200 |
---|---|---|
committer | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2020-08-13 18:54:22 +0200 |
commit | 855f3948eca7bb56fdbbc3d47a6d485ccf012a3c (patch) | |
tree | 51c48d968ce8d7fd4f506e17f64313e0041027b6 /module | |
parent | 3db293a71dc93776ee262063d40b2e8304c49ac6 (diff) | |
download | guile-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.scm | 5 |
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)))) |