From a21bd3c948730709146a156702c6737568b0fa75 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 14 Aug 2017 21:00:59 -0700
Subject: bugfix: buf-put-uchar

* buf.c (buf_put_uchar): Fix wrong conversion that is causing
this function to reject values in the 128-255 range.
---
 buf.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/buf.c b/buf.c
index a5ce235f..145de28f 100644
--- a/buf.c
+++ b/buf.c
@@ -325,7 +325,7 @@ val buf_put_uchar(val buf, val pos, val num)
   val self = lit("buf-put-uchar");
   struct buf *b = buf_handle(buf, self);
   cnum p = buf_check_index(pos, self);
-  unsigned char v = c_char(num, self);
+  unsigned char v = c_uchar(num, self);
   if (p >= c_num(b->len))
     buf_do_set_len(buf, b, succ(pos), nil, self);
   b->data[p] = v;
-- 
cgit v1.2.3