From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 18 Feb 2017 07:43:48 +0000 (-0800)
Subject: Add mappings for _QC properties.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~77
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=64aaf9fde1bc69c14333e3cf37bda5405b8e3366;p=mit-scheme.git

Add mappings for _QC properties.
---

diff --git a/src/etc/ucd-raw-props/names.scm b/src/etc/ucd-raw-props/names.scm
index ec5acbcc3..7ae6d564b 100644
--- a/src/etc/ucd-raw-props/names.scm
+++ b/src/etc/ucd-raw-props/names.scm
@@ -139,11 +139,11 @@ USA.
 ("Lower" lower-case boolean)
 ("Math" math boolean)
 ("NChar" noncharactor-code-point boolean)
-("NFC_QC" nfc-quick-check (enum "Y" "N" "M"))
-("NFD_QC" nfd-quick-check (enum "Y" "N"))
+("NFC_QC" nfc-quick-check (enum ("Y" . #t) ("N" . #f) ("M" . maybe)))
+("NFD_QC" nfd-quick-check boolean)
 ("NFKC_CF" nfkc-case-fold code-point*)
-("NFKC_QC" nfkc-quick-check (enum "Y" "N" "M"))
-("NFKD_QC" nfkd-quick-check (enum "Y" "N"))
+("NFKC_QC" nfkc-quick-check (enum ("Y" . #t) ("N" . #f) ("M" . maybe)))
+("NFKD_QC" nfkd-quick-check boolean)
 ("OAlpha" other-alphabetic boolean)
 ("ODI" other-default-ignorable-code-point boolean)
 ("OGr_Ext" other-grapheme-extend boolean)