Use named char-set for whitespace.

diff --git a/src/runtime/regsexp.scm b/src/runtime/regsexp.scm
index 8ce51c600f80c035dd052f17054f9da98c4084c8..d80f5d299303514f7b7a696c9cd988322dba460c 100644 (file)
--- a/src/runtime/regsexp.scm
+++ b/src/runtime/regsexp.scm
@@ -698,8 +698,8 @@ USA.
            ((#\B) (output-expr '(not-word-bound)))
            ((#\`) (output-expr '(string-start)))
            ((#\') (output-expr '(string-end)))
-           ((#\w) (output-expr '(legacy-char-syntax #\w)))
-           ((#\W) (output-expr '(inverse-legacy-char-syntax #\w)))
+           ((#\w) (output-expr '(char-set whitespace)))
+           ((#\W) (output-expr '(inverse-char-set whitespace)))
            ((#\s) (output-expr `(legacy-char-syntax ,(get-next))))
            ((#\S) (output-expr `(inverse-legacy-char-syntax ,(get-next))))
            ((#\() (start-group))