From 5b0c261b04e02e467db672c7abb328a4a16a1caa Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 17 Nov 2023 15:28:59 +0100
Subject: [PATCH] Mark symbol-hash primcall as having unboxed result

* module/language/cps/utils.scm (primcall-raw-representations): Add
symbol-hash.
---
 module/language/cps/utils.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index b04c35dc3..ec8c2b3af 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -399,7 +399,8 @@ by a label, respectively."
       word-ref word-ref/immediate
       untag-char
       vector-length vtable-size bv-length
-      string-length string-ref)
+      string-length string-ref
+      symbol-hash)
      '(u64))
     ((untag-fixnum
       assume-s64