diff options
-rw-r--r-- | stream.c | 3 | ||||
-rw-r--r-- | stream.h | 2 |
2 files changed, 3 insertions, 2 deletions
@@ -74,7 +74,7 @@ val stdin_s, stdout_s, stddebug_s, stderr_s, stdnull_s; val print_flo_precision_s, print_flo_digits_s, print_flo_format_s; -val print_base_s; +val print_base_s, print_circle_s; val from_start_k, from_current_k, from_end_k; val real_time_k, name_k, addr_k, fd_k, byte_oriented_k; @@ -4177,6 +4177,7 @@ void stream_init(void) lit("~s")); reg_var(print_base_s = intern(lit("*print-base*"), user_package), num_fast(10)); + reg_var(print_circle_s = intern(lit("*print-circle*"), user_package), nil); #if HAVE_ISATTY if (isatty(fileno(stdin)) == 1) @@ -116,7 +116,7 @@ extern val stdio_stream_s; extern val stdin_s, stdout_s, stddebug_s, stderr_s, stdnull_s; extern val print_flo_precision_s, print_flo_digits_s, print_flo_format_s; -extern val print_base_s; +extern val print_base_s, print_circle_s; #if HAVE_SOCKETS extern val socket_error_s; |