mes: Add dirname.
[mes.git] / 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))) "/"))))