[Scsh-checkins] CVS: scsh/scsh/rx spencer.scm,1.4,1.5

[Mike Sperber <sperber@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh/scsh/rx
In directory usw-pr-cvs1:/tmp/cvs-serv1747

Modified Files:
        spencer.scm 
Log Message:
MF 0.6, 1.3 -> 1.4
Fix (make-regexp [...-]) bug.


Index: spencer.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/rx/spencer.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** spencer.scm 2001/03/11 18:52:59     1.4
--- spencer.scm 2001/07/10 11:34:33     1.5
***************
*** 141,145 ****
                    ;; Regular letter -- either alone, or startpoint of a range.
                    (else (if (and (< (+ i1 1) len)
!                                  (char=? #\- (string-ref s i1)))
  
                              ;; Range
--- 141,146 ----
                    ;; Regular letter -- either alone, or startpoint of a range.
                    (else (if (and (< (+ i1 1) len)
!                                  (char=? #\- (string-ref s i1))
!                                  (not (char=? #\] (string-ref s (+ i1 1)))))
  
                              ;; Range