From c8a169d38825d5a21da5392b355ca5fc9f33fa55 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 20 Feb 2025 12:38:28 +0100
Subject: [PATCH] Fix string-utf8-length to have unboxed representation

* module/language/cps/utils.scm (primcall-raw-representations): Add
string-utf8-length.
---
 module/language/cps/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index f9092d0b3..1f09fe7c2 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -405,7 +405,7 @@ by a label, respectively."
       word-ref word-ref/immediate
       untag-char
       vector-length vtable-size bv-length
-      string-length string-ref
+      string-length string-utf8-length string-ref
       symbol-hash)
      '(u64))
     ((untag-fixnum