Fixed bug in the definition of re-nonl. Olin

1999-10-05 18:46:00 +00:00 · 1999-10-05 18:46:00 +00:00 · dbf3e322eb
parent 18d41a4a16
commit dbf3e322eb
1 changed files with 4 additions and 1 deletions
--- 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]"
+			  '#()))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;