Fixed a bug in the parser of "-" sre forms.

2004-01-09 22:51:07 +00:00 · 2004-01-09 22:51:07 +00:00 · da53963d82
parent 5330ba06e0
commit da53963d82
1 changed files with 1 additions and 1 deletions
--- a/scsh/rx/parse.scm
+++ b/scsh/rx/parse.scm
@ -273,7 +273,7 @@
 				      cs1)
 				 . ,(if (char-set? cs2)
 					(list (char-set->scheme cs2 r))
-					(cdr cs2))))))
+					(list cs2))))))
 		  (if cset? cs (make-re-char-set cs)))
 		(error "SRE set-difference operator (- ...) requires at least one argument")))