From da53963d82dfedc31117f0e26dfb6376f103f40a Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 9 Jan 2004 22:51:07 +0000
Subject: [PATCH] Fixed a bug in the parser of "-" sre forms.

---
 scsh/rx/parse.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/rx/parse.scm b/scsh/rx/parse.scm
index 89cc5b6..985e91c 100644
--- 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")))