debug_back_trace now takes a FILE * object.

diff --git a/v7/src/microcode/osscheme.c b/v7/src/microcode/osscheme.c
index 509186ab678578de03c6176012a64c25712760be..a94e1fd0bde1a6f987ae2097c1f20c89f5cd1c65 100644 (file)
--- a/v7/src/microcode/osscheme.c
+++ b/v7/src/microcode/osscheme.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.c,v 1.4 1992/01/20 16:27:17 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.c,v 1.5 1992/02/04 00:35:36 jinx Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -112,9 +112,9 @@ DEFUN (set_interrupt_mask, (mask), long mask)
 }
 
 void
-DEFUN_VOID (debug_back_trace)
+DEFUN (debug_back_trace, (stream), FILE * stream)
 {
-  Back_Trace (stdout);
+  Back_Trace (stream);
 }
 
 void

diff --git a/v7/src/microcode/osscheme.h b/v7/src/microcode/osscheme.h
index 2f21780886cccdc5cdad38cefcdefa2cbd5d8449..b63fae855fcfc4a5e99a19049fb4157f11d55785 100644 (file)
--- a/v7/src/microcode/osscheme.h
+++ b/v7/src/microcode/osscheme.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.h,v 1.4 1991/08/26 15:00:14 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.h,v 1.5 1992/02/04 00:35:24 jinx Exp $
 
-Copyright (c) 1990-91 Massachusetts Institute of Technology
+Copyright (c) 1990-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -44,7 +44,7 @@ extern int option_emacs_subprocess;
 extern int EXFUN (executing_scheme_primitive_p, (void));
 
 extern void EXFUN (debug_edit_flags, (void));
-extern void EXFUN (debug_back_trace, (void));
+extern void EXFUN (debug_back_trace, (FILE *));
 extern void EXFUN (debug_examine_memory, (long address, CONST char * label));
 
 extern void EXFUN (error_out_of_channels, (void));