From e92bd6cf7c89fc9fb486ccdc82c7e09f44ae90d2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 23 Mar 2016 00:23:27 -0400
Subject: [PATCH] Print bytevectors

---
 runtime.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/runtime.c b/runtime.c
index c090e14f..e65d21a2 100644
--- a/runtime.c
+++ b/runtime.c
@@ -587,6 +587,16 @@ object Cyc_display(object x, FILE *port)
       }
       fprintf(port, ")");
       break;
+    case bytevector_tag:
+      fprintf(port, "#u8(");
+      for (i = 0; i < ((bytevector) x)->len; i++) {
+        if (i > 0) { 
+          fprintf(port, " "); 
+        }
+        fprintf(port, "%d", (int)(((bytevector)x)->data[i]));
+      }
+      fprintf(port, ")");
+      break;
     case cons_tag:
       has_cycle = Cyc_has_cycle(x);
       fprintf(port, "(");