1 files changed, 7 insertions, 0 deletions
diff --git a/shell/print.mu b/shell/print.mu
index aab6cbfe..3dec6cff 100644
--- a/shell/print.mu
+++ b/shell/print.mu
@@ -40,6 +40,13 @@ fn print-cell _in: (addr handle cell), out: (addr stream byte), trace: (addr tra
     trace-higher trace
     return
   }
+  compare *in-type, 4/primitive
+  {
+    break-if-!=
+    write out, "[primitive]"
+    trace-higher trace
+    return
+  }
 }
 
 # debug helper