diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 21:32:37 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 22:10:14 +0100 |
| commit | cdbf97fe063432981a8c550c9bd2c8f214e43394 (patch) | |
| tree | f0a6034c014e0cc345b381f38046477205d754d0 /module/hnh | |
| parent | Move path-append to own module. (diff) | |
| download | calp-cdbf97fe063432981a8c550c9bd2c8f214e43394.tar.gz calp-cdbf97fe063432981a8c550c9bd2c8f214e43394.tar.xz | |
Add path-join.
Diffstat (limited to 'module/hnh')
| -rw-r--r-- | module/hnh/util/path.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/hnh/util/path.scm b/module/hnh/util/path.scm index b08932f9..41b2e1fc 100644 --- a/module/hnh/util/path.scm +++ b/module/hnh/util/path.scm @@ -18,3 +18,5 @@ (if (string-null? s) "/" s)) (cdr strings))) + +(define-public (path-join lst) (apply path-append lst)) |