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

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

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

Modified Files:
        spencer.scm 
Log Message:
Bug fix for [...-] regexps.


Index: spencer.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/rx/spencer.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** spencer.scm 2001/03/23 10:52:09     1.3
--- spencer.scm 2001/07/10 11:23:00     1.4
***************
*** 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