From d1808995b2c6b99749237a29e6ac6477d00ff8f9 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 9 Nov 2021 07:30:44 -0800
Subject: [PATCH] copy back some error messages from linux/

---
 403unicode.mu       | 4 ++--
 linux/403unicode.mu | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/403unicode.mu b/403unicode.mu
index 73f44a58..e1bfba3f 100644
--- a/403unicode.mu
+++ b/403unicode.mu
@@ -136,10 +136,10 @@ fn to-grapheme in: code-point -> _/eax: grapheme {
       break $to-grapheme:compute-length
     }
     # more than 4 bytes: unsupported
-    # TODO: print error message to stderr
     compare c, 0x1fffff
     {
       break-if->
+      abort "unsupported code point"
       return 0
     }
   }
@@ -276,7 +276,7 @@ fn read-grapheme in: (addr stream byte) -> _/eax: grapheme {
       num-trailers <- copy 3
       break $read-grapheme:compute-length
     }
-    # TODO: print error message
+    abort "utf-8 encodings larger than 4 bytes are not yet supported"
     return 0
   }
   # prepend trailer bytes
diff --git a/linux/403unicode.mu b/linux/403unicode.mu
index 2baefd9f..8594615a 100644
--- a/linux/403unicode.mu
+++ b/linux/403unicode.mu
@@ -199,7 +199,7 @@ fn read-grapheme in: (addr stream byte) -> _/eax: grapheme {
     }
 $read-grapheme:abort: {
       # TODO: print to stderr
-      print-string-to-real-screen "utf-8 encodings larger than 4 bytes are not supported. First byte seen: "
+      print-string-to-real-screen "utf-8 encodings larger than 4 bytes are not yet supported. First byte seen: "
       var n/eax: int <- copy c
       print-int32-hex-to-real-screen n
       print-string-to-real-screen "\n"