mes: Add dirname.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 1 Jan 2018 15:40:23 +0000 (16:40 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 1 Jan 2018 15:40:23 +0000 (16:40 +0100)
* module/mes/guile.mes (dirname): New function.

module/mes/guile.mes

index a131bbaed688c4857a87c08f944c68289d17c6c9..ffec0b54ec120493aa12d9b36a94e67dc9ec0c58 100644 (file)
                               (set! set-current-input-port save-set-current-input-port)
                               string-port)))))))
       string-port)))
+
+(define (dirname file-name)
+  (let ((lst (filter (negate string-null?) (string-split file-name #\/))))
+    (if (<= (length lst) 1) "."
+        (string-join (list-head lst (1- (length lst))) "/"))))