scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MF 0.6, 1.3 -> 1.4 

Fix (make-regexp [...-]) bug.
This commit is contained in:
sperber 2001-07-10 11:34:33 +00:00
parent 0910ddd0c8
commit 878e0399f0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/rx/spencer.scm
View File

@ -140,7 +140,8 @@
;; Regular letter -- either alone, or startpoint of a range. ;; Regular letter -- either alone, or startpoint of a range.
(else (if (and (< (+ i1 1) len) (else (if (and (< (+ i1 1) len)
(char=? #\- (string-ref s i1))) (char=? #\- (string-ref s i1))
(not (char=? #\] (string-ref s (+ i1 1)))))
;; Range ;; Range
(let* ((i-tochar (+ i1 1)) (let* ((i-tochar (+ i1 1))