From: Chris Hanson Date: Sat, 11 Feb 2017 21:02:57 +0000 (-0800) Subject: Rename "WSpace" full name to "whitespace". X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~139 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d4678141dee008bdcc1c781e108e43999336af39;p=mit-scheme.git Rename "WSpace" full name to "whitespace". --- diff --git a/src/etc/ucd-raw-props/names.scm b/src/etc/ucd-raw-props/names.scm index ab5efa525..b90eb8d24 100644 --- a/src/etc/ucd-raw-props/names.scm +++ b/src/etc/ucd-raw-props/names.scm @@ -169,7 +169,7 @@ USA. ("WB" word-break (enum "CR" "DQ" "EB" "EBG" "EM" "EX" "Extend" "FO" "GAZ" "HL" "KA" "LE" "LF" "MB" "ML" "MN" "NL" "NU" "RI" "SQ" "XX" "ZWJ")) -("WSpace" white-space boolean) +("WSpace" whitespace boolean) ("XIDC" xid-continue boolean) ("XIDS" xid-start boolean) ("XO_NFC" expands-on-nfc boolean) diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg index 4977f2983..1388dc1db 100644 --- a/src/runtime/runtime.pkg +++ b/src/runtime/runtime.pkg @@ -1419,10 +1419,10 @@ USA. "ucd-table-wspace") (parent (runtime)) (export () - (char-set:whitespace char-set:white-space) char-set:alphabetic char-set:lower-case - char-set:upper-case) + char-set:upper-case + char-set:whitespace) (export (runtime character) ucd-cf-value ucd-gc-value diff --git a/src/runtime/ucd-table-wspace.scm b/src/runtime/ucd-table-wspace.scm index d85526e75..09dc95fcf 100644 --- a/src/runtime/ucd-table-wspace.scm +++ b/src/runtime/ucd-table-wspace.scm @@ -26,12 +26,12 @@ USA. ;;;; UCD property: WSpace -;;; Generated from Unicode 9.0.0 UCD at 2017-02-10T19:43:18-08 +;;; Generated from Unicode 9.0.0 (declare (usual-integrations)) (define (ucd-wspace-value sv) - (scalar-value-in-char-set? sv char-set:white-space)) + (scalar-value-in-char-set? sv char-set:whitespace)) -(define-deferred char-set:white-space +(define-deferred char-set:whitespace (char-set* '((9 . 14) 32 133 160 5760 (8192 . 8203) (8232 . 8234) 8239 8287 12288)))