Fixed a bug in the parser of "-" sre forms.
This commit is contained in:
parent
5330ba06e0
commit
da53963d82
|
@ -273,7 +273,7 @@
|
||||||
cs1)
|
cs1)
|
||||||
. ,(if (char-set? cs2)
|
. ,(if (char-set? cs2)
|
||||||
(list (char-set->scheme cs2 r))
|
(list (char-set->scheme cs2 r))
|
||||||
(cdr cs2))))))
|
(list cs2))))))
|
||||||
(if cset? cs (make-re-char-set cs)))
|
(if cset? cs (make-re-char-set cs)))
|
||||||
(error "SRE set-difference operator (- ...) requires at least one argument")))
|
(error "SRE set-difference operator (- ...) requires at least one argument")))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue