scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

In file-name-{sans-}extension, check whether the rightmost "." occurs within a directory name.

This commit is contained in:
mainzelm 2003-02-10 07:26:18 +00:00
parent 87a29c59ab
commit c223eded17
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/fname.scm
View File

@ -128,9 +128,11 @@
;;; /usr/shivers/.login are not considered extensions.
(define (file-name-extension-index fname)
(let ((dot (string-index-right fname #\.)))
(let ((dot (string-index-right fname #\.))
(slash (string-index-right fname #\/)))
(if (and dot
(> dot 0)
(if slash (> dot slash) #t)
(not (char=? #\/ (string-ref fname (- dot 1)))))
dot
(string-length fname))))