conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some bug fixes

This commit is contained in:
Sunrim KIM (keen) 2014-05-29 03:58:04 +09:00
parent 65038c9504
commit 6ccfa7ad69
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/built-in.scm
View File

@ -733,7 +733,7 @@
(end (if (>= (length opts) 2) (end (if (>= (length opts) 2)
(cadr opts) (cadr opts)
(vector-length v)))) (vector-length v))))
(let ((res (make-vector (vector-length v)))) (let ((res (make-vector (- end start))))
(vector-copy! res 0 v start end) (vector-copy! res 0 v start end)
res))) res)))
@ -792,7 +792,7 @@
(end (if (>= (length opts) 2) (end (if (>= (length opts) 2)
(cadr opts) (cadr opts)
(bytevector-length v)))) (bytevector-length v))))
(let ((res (make-bytevector (bytevector-length v)))) (let ((res (make-bytevector (- end start))))
(bytevector-copy! res 0 v start end) (bytevector-copy! res 0 v start end)
res))) res)))

7
src/port.c
View File

@ -467,12 +467,15 @@ pic_port_read_string(pic_state *pic){
static pic_value static pic_value
pic_port_read_byte(pic_state *pic){ pic_port_read_byte(pic_state *pic){
struct pic_port *port = pic_stdin(pic); struct pic_port *port = pic_stdin(pic);
char c;
pic_get_args(pic, "|p", &port); pic_get_args(pic, "|p", &port);
assert_port_profile(port, PIC_PORT_IN | PIC_PORT_BINARY, PIC_PORT_OPEN, "read-u8"); assert_port_profile(port, PIC_PORT_IN | PIC_PORT_BINARY, PIC_PORT_OPEN, "read-u8");
if ((c = xfgetc(port->file)) == EOF) {
return pic_eof_object();
}
return pic_int_value((char) xfgetc(port->file)); return pic_int_value(c);
} }
static pic_value static pic_value