From 80307576245aabf00285db020bbfbc4c3a891766 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Tue, 27 Jul 2010 19:21:51 -0700 Subject: Switch machine-type lexemes to use suffixes. Remove support for foo(bar) as a cast notation. Closes #129. --- src/boot/driver/session.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/boot/driver/session.ml') diff --git a/src/boot/driver/session.ml b/src/boot/driver/session.ml index 210dd7be..d9e57b02 100644 --- a/src/boot/driver/session.ml +++ b/src/boot/driver/session.ml @@ -32,6 +32,7 @@ type sess = mutable sess_log_obj: bool; mutable sess_log_lib: bool; mutable sess_log_out: out_channel; + mutable sess_log_err: out_channel; mutable sess_trace_block: bool; mutable sess_trace_drop: bool; mutable sess_trace_tag: bool; @@ -79,7 +80,7 @@ let log name flag chan = let fail sess = sess.sess_failed <- true; - Printf.fprintf sess.sess_log_out + Printf.fprintf sess.sess_log_err ;; -- cgit v1.2.3