From 29f49d970473039e88eaf793ce4830665a767a1a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 23 Mar 2016 22:00:58 -0400
Subject: [PATCH] Parse bytevectors correctly

---
 scheme/read.sld | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index 6bbcbc99..e426dc91 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -338,7 +338,7 @@
               ((eq? #\x next-c)
                (parse-number fp toks all? parens ptbl 
                  16 (lambda (num) (string->number (list->string num) 16))))
-              ;; Bytevector (TODO: this is just a placeholder for now)
+              ;; Bytevector
               ((eq? #\u next-c)
                 (set! next-c (read-char fp))
                 (if (not (eq? #\8 next-c))
@@ -359,7 +359,7 @@
                             "Invalid vector syntax" ;(->dotted-list sub)
                             (in-port:get-lnum ptbl)
                             (in-port:get-cnum ptbl))
-                         (list->vector sub))
+                         (apply bytevector sub))
                      toks*)) 
                  (if all?
                   (parse fp '() new-toks all? #f parens ptbl)