Implement char-set:unicode.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 0d3897d04367da6851b464474cd6da8c9b541093..760dab3fbd7c91b291942fc63f9068f1f42df65f 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -552,6 +552,9 @@ USA.
 \f
 ;;;; 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 939011029ad4e835de498a58c8cef0a7f24e24fd..ab75ce837ec484d9b125c34aefdd8088d4287eac 100644 (file)
--- 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?