From 878e0399f09091a1df454b563623295c9282d471 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 10 Jul 2001 11:34:33 +0000
Subject: [PATCH] MF 0.6, 1.3 -> 1.4 Fix (make-regexp [...-]) bug.

---
 scsh/rx/spencer.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scsh/rx/spencer.scm b/scsh/rx/spencer.scm
index e61c904..3d91c56 100644
--- a/scsh/rx/spencer.scm
+++ b/scsh/rx/spencer.scm
@@ -140,7 +140,8 @@
 
 		    ;; Regular letter -- either alone, or startpoint of a range.
 		    (else (if (and (< (+ i1 1) len)
-				   (char=? #\- (string-ref s i1)))
+				   (char=? #\- (string-ref s i1))
+				   (not (char=? #\] (string-ref s (+ i1 1)))))
 
 			      ;; Range
 			      (let* ((i-tochar (+ i1 1))