Adding fmt function.

* stream.c (fmt): New function.

* stream.h (fmt): Declared.

* txr.1: Documented.

1 files changed, 6 insertions, 0 deletions

diff --git a/stream.c b/stream.c
index 0815aa5d..e07defb4 100644
--- a/stream.c
+++ b/stream.c
@@ -3095,6 +3095,11 @@ val format(val stream, val str, ...)
   }
 }
 
+val fmt(val string, struct args *args)
+{
+  return formatv(nil, string, args);
+}
+
 static val put_indent(val stream, struct strm_ops *ops, cnum chars)
 {
   while (chars--)
@@ -3800,6 +3805,7 @@ void stream_init(void)
 #endif
 
   reg_fun(format_s, func_n2v(formatv));
+  reg_fun(intern(lit("fmt"), user_package), func_n1v(fmt));
   reg_fun(intern(lit("make-string-input-stream"), user_package), func_n1(make_string_input_stream));
   reg_fun(intern(lit("make-string-byte-input-stream"), user_package), func_n1(make_string_byte_input_stream));
   reg_fun(intern(lit("make-string-output-stream"), user_package), func_n0(make_string_output_stream));