From 4c8d3b0a08817b5c491d1437817f00ef8e74cc79 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 Feb 2017 14:41:01 -0800
Subject: [PATCH] Implement char-set:unicode.

---
 src/runtime/chrset.scm  | 3 +++
 src/runtime/runtime.pkg | 1 +
 2 files changed, 4 insertions(+)

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 0d3897d04..760dab3fb 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -552,6 +552,9 @@ USA.
 
 ;;;; Non-Unicode character sets
 
+(define-deferred char-set:unicode
+  (compute-char-set unicode-char-code?))
+
 (define-deferred char-set:graphic
   (char-set* '((#x20 . #x7F) (#xA0 . #x100))))
 (define-deferred char-set:not-graphic (char-set-invert char-set:graphic))
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 939011029..ab75ce837 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1496,6 +1496,7 @@ USA.
 	  char-set:not-graphic
 	  char-set:not-standard
 	  char-set:standard
+	  char-set:unicode
 	  char-set:wsp
 	  char-set=?
 	  char-set?
-- 
2.25.1