From a22082e8325d6eb9911604ead620485184c1df6e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 19 Oct 2016 06:42:26 -0700 Subject: Add *print-circle* special variable. * stream.c (print_circle_s): New symbol variable. (stream_init): Initialize print_circle_s as symbol named *print-circle*; register as special var. * stream.h (print_circle_s): Declared. --- stream.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'stream.c') diff --git a/stream.c b/stream.c index 51f0cb33..0c7fa12b 100644 --- a/stream.c +++ b/stream.c @@ -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) -- cgit v1.2.3