From dbf3e322eb56fd7c4e8b684913d2302abe0b0c21 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Tue, 5 Oct 1999 18:46:00 +0000
Subject: [PATCH] Fixed bug in the definition of re-nonl. Olin

---
 scsh/rx/re.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scsh/rx/re.scm b/scsh/rx/re.scm
index bf03461..104cb68 100644
--- a/scsh/rx/re.scm
+++ b/scsh/rx/re.scm
@@ -392,7 +392,10 @@
 	 (and (char-set? cs) ; Might be code...
 	      (char-set-full? cs)))))
 
-(define re-nonl (make-re-char-set/posix (char-set #\newline) "[^\n]" '#()))
+(define re-nonl
+  (make-re-char-set/posix (char-set-invert (char-set #\newline))
+			  "[^\n]"
+			  '#()))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;