From 4f14d3a2ded6137c5dd6449f4ec2d566947c4157 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 26 Feb 2016 22:42:09 -0800 Subject: Place C standard I/O based streams into subtype. * lib.c (subtypep): Handle subtype check here between stream and stdio-stream as a special case, since streams aren't structures related by inheritance, but built-ins. (class_check): If the type of obj doesn't match the class exactly, use a subtypep check. We need this because stream functions use this check, and stdio streams are not of the stream type now. * stream.c (stdio_stream_s): New global symbol variable. (make_stdio_stream_common): Use stdio_stream_s symbol for the type of stdio streams. (stream_init): Intern the stdio-stream symbol, and store in stdio_stream_s variable. (streamp): Replace exact check with typep. * stream.h (stdio_stream_s): Declared. --- stream.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'stream.h') diff --git a/stream.h b/stream.h index d6abfc21..0891d9bc 100644 --- a/stream.h +++ b/stream.h @@ -88,6 +88,8 @@ extern val from_start_k, from_current_k, from_end_k; extern val real_time_k, name_k, fd_k; extern val format_s; +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; -- cgit v1.2.3