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]" + '#())) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;