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

move u8-ready? to contrib

This commit is contained in:
Yuichi Nishiwaki 2016-07-10 23:36:32 +09:00
parent cede377e11
commit 05cb5aec22
2 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/20.r7rs/scheme/base.scm
View File

@ -807,8 +807,11 @@
b
(integer->char b))))
(define (u8-ready? . opt)
#t)
(define (char-ready? . opt)
(apply u8-ready? opt))
#t)
(define (newline . opt)
(apply write-u8 (char->integer #\newline) opt))

14
extlib/benz/port.c
View File

@ -692,19 +692,6 @@ pic_port_peek_u8(pic_state *pic)
}
}
static pic_value
pic_port_u8_ready_p(pic_state *pic)
{
pic_value port = pic_stdin(pic);
pic_get_args(pic, "|p", &port);
assert_port_profile(port, FILE_READ, "u8-ready?");
return pic_true_value(pic); /* FIXME: always returns #t */
}
static pic_value
pic_port_read_bytevector(pic_state *pic)
{
@ -848,7 +835,6 @@ pic_init_port(pic_state *pic)
/* input */
pic_defun(pic, "read-u8", pic_port_read_u8);
pic_defun(pic, "peek-u8", pic_port_peek_u8);
pic_defun(pic, "u8-ready?", pic_port_u8_ready_p);
pic_defun(pic, "read-bytevector", pic_port_read_bytevector);
pic_defun(pic, "read-bytevector!", pic_port_read_bytevector_ip);