* 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.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 207d2acb..458c3cac 100644
--- a/stream.h
+++ b/stream.h
@@ -48,6 +48,7 @@ val formatv(val stream, val string, val args);
 val put_string(val string, val stream);
 val put_line(val string, val stream);
 val put_char(val ch, val stream);
+val put_byte(val byte, val stream);
 val flush_stream(val stream);
 val open_directory(val path);
 val open_file(val path, val mode_str);