From be84d5ec478e30cc43dd1ab85179270e0c7fd444 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 21 Feb 2002 13:22:27 +0000
Subject: [PATCH] Reinstate FILE-MATCH, accidentally left unported from 0.5.1.
 Replace mention of SRFI 13 (not there yet) by STRING-LIB (gone soon).

---
 scsh/scsh-interfaces.scm | 2 +-
 scsh/scsh-package.scm    | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm
index 160805a..fbfb476 100644
--- a/scsh/scsh-interfaces.scm
+++ b/scsh/scsh-interfaces.scm
@@ -290,7 +290,7 @@
 	  directory-files
 	  glob
 	  glob-quote
-;	  file-match
+	  file-match
 
 	  create-temp-file
 	  temp-file-iterate
diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm
index f51221a..63afa44 100644
--- a/scsh/scsh-package.scm
+++ b/scsh/scsh-package.scm
@@ -229,7 +229,7 @@
 	 filesys
 	 fileinfo
 	 glob
-;	 filemtch
+	 filemtch
 	 time			; New in release 0.2.
 	 (machine time_dep)
 	 network		; New in release 0.3.
@@ -338,7 +338,7 @@
   (files fr)
   ;; Handle a little bit of backwards compatibility.
   (begin (define join-strings (deprecated-proc string-join 'join-strings
-					       "Use SRFI-13 STRING-JOIN.")))
+					       "Use STRING-LIB STRING-JOIN.")))
   )