From c223eded173a9cd35f8df0749d524e65838b2740 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 10 Feb 2003 07:26:18 +0000
Subject: [PATCH] In file-name-{sans-}extension, check whether the rightmost
 "." occurs within a directory name.

---
 scsh/fname.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scsh/fname.scm b/scsh/fname.scm
index 77d4f3b..4c8d02c 100644
--- a/scsh/fname.scm
+++ b/scsh/fname.scm
@@ -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))))