artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Add dirname.

Browse source 
* module/mes/guile.mes (dirname): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-01-01 16:40:23 +01:00
parent 08562b168d
commit 244d11a2af
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
module/mes/guile.mes
View file

@ -149,3 +149,8 @@
(set! set-current-input-port save-set-current-input-port) (set! set-current-input-port save-set-current-input-port)
string-port))))))) string-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))) "/"))))