From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 4 Feb 1992 00:35:36 +0000 (+0000)
Subject: debug_back_trace now takes a FILE * object.
X-Git-Tag: 20090517-FFI~9885
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cc112b124c57673535ef7b0aab2fae738757cc23;p=mit-scheme.git

debug_back_trace now takes a FILE * object.
---

diff --git a/v7/src/microcode/osscheme.c b/v7/src/microcode/osscheme.c
index 509186ab6..a94e1fd0b 100644
--- 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 2f2178088..b63fae855 100644
--- 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));