From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 May 2017 07:56:57 +0000 (-0700)
Subject: Use named char-set for whitespace.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~87
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb3ec431c67cfd485d2d7353c77f616a2d100206;p=mit-scheme.git

Use named char-set for whitespace.
---

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))