klisp

commit 98e9f11606b8470e2bf27f835e76c01f2651c90d
parent 6f7bc4f5917cd9bee670371b25f7d271f075e1f3
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Mon, 21 Nov 2011 02:17:42 -0300

A couple of bugfixes in kgports (found & fixed by Oto Havle)

Diffstat:
M
src/kgports.c
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/kgports.c b/src/kgports.c
@@ -223,7 +223,7 @@ void get_output_buffer(klisp_State *K, TValue *xparams, TValue ptree,
     */
     bool binaryp = bvalue(xparams[0]);
     UNUSED(denv);
-    bind_1tp(K, ptree, "port", ttisport, port);
+    bind_1tp(K, ptree, "port", ttismport, port);
 
     if (binaryp && !kport_is_binary(port)) {
 	klispE_throw_simple(K, "the port should be a bytevector port");
@@ -448,7 +448,7 @@ void write_u8(klisp_State *K, TValue *xparams, TValue ptree, TValue denv)
 	return;
     }
     
-    kwrite_char_to_port(K, port, u8);
+    kwrite_u8_to_port(K, port, u8);
     kapply_cc(K, KINERT);
 }