From 4a1479685d26d06d6857096ae2f86708e8a60cf4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 25 Feb 2012 15:59:59 -0800 Subject: * eval.c (eval_init): New put-byte function interned. * stream.c (struct strm_ops): New member, put_byte. (stdio_put_byte): New function. (stdio_ops, pipe_ops, string_in_ops, byte_in_ops, string_out_ops, strlist_out_ops, dir_ops): Updated. (put_byte): New function. * stream.h (put_byte): Declared. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 9347b708..1bfd5817 100644 --- a/eval.c +++ b/eval.c @@ -2201,6 +2201,7 @@ void eval_init(void) reg_fun(intern(lit("put-string"), user_package), func_n2o(put_string, 1)); reg_fun(intern(lit("put-line"), user_package), func_n2o(put_line, 1)); reg_fun(intern(lit("put-char"), user_package), func_n2o(put_char, 1)); + reg_fun(intern(lit("put-byte"), user_package), func_n2o(put_byte, 1)); reg_fun(intern(lit("flush-stream"), user_package), func_n1(flush_stream)); reg_fun(intern(lit("open-directory"), user_package), func_n1(open_directory)); reg_fun(intern(lit("open-file"), user_package), func_n2(open_file)); -- cgit v1.2.3