diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-11 03:27:57 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-11 03:27:57 +0100 |
| commit | 3c6bd65e402655aacb9dfd8e2edeb95563f3ccda (patch) | |
| tree | fee8a13ea4a21970f32e17df17072f85911c33bb /module/hnh/util/path.scm | |
| parent | Fix IPv6-binding without hot-patching guile. (diff) | |
| download | calp-3c6bd65e402655aacb9dfd8e2edeb95563f3ccda.tar.gz calp-3c6bd65e402655aacb9dfd8e2edeb95563f3ccda.tar.xz | |
Add test for path-append without components.
Diffstat (limited to 'module/hnh/util/path.scm')
| -rw-r--r-- | module/hnh/util/path.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/hnh/util/path.scm b/module/hnh/util/path.scm index b0991073..d22e8242 100644 --- a/module/hnh/util/path.scm +++ b/module/hnh/util/path.scm @@ -17,6 +17,7 @@ (define path-absolute? absolute-file-name?) ;; TODO remove intermidiate period components +;; e.x. /a/../b => /b (define (path-append . strings) (fold (lambda (s done) (string-append |