From fb3ec431c67cfd485d2d7353c77f616a2d100206 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 3 May 2017 00:56:57 -0700 Subject: [PATCH] Use named char-set for whitespace. --- src/runtime/regsexp.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/regsexp.scm b/src/runtime/regsexp.scm index 8ce51c600..d80f5d299 100644 --- 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)) -- 2.25.1