summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-02-25 15:59:59 -0800
committerKaz Kylheku <kaz@kylheku.com>2012-02-25 15:59:59 -0800
commit4a1479685d26d06d6857096ae2f86708e8a60cf4 (patch)
treea8ab285ca6970c7bf998be94ff6f0caf3320ea60 /eval.c
parentcb0c0a6144346521d6cf3b02703ba15f67b9b4f3 (diff)
downloadtxr-4a1479685d26d06d6857096ae2f86708e8a60cf4.tar.gz
txr-4a1479685d26d06d6857096ae2f86708e8a60cf4.tar.bz2
txr-4a1479685d26d06d6857096ae2f86708e8a60cf4.zip
* 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.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c1
1 files changed, 1 insertions, 0 deletions
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));