MF 0.6, 1.3 -> 1.4

Fix (make-regexp [...-]) bug.
2001-07-10 11:34:33 +00:00 · 2001-07-10 11:34:33 +00:00 · 878e0399f0
parent 0910ddd0c8
commit 878e0399f0
1 changed files with 2 additions and 1 deletions
--- 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))