From 6e80cb271a6caf0f542e3a93039884325b7e9fc3 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 4 Feb 1992 00:42:48 +0000 Subject: [PATCH] Fix a declaration problem. --- v7/src/microcode/uxsig.c | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/v7/src/microcode/uxsig.c b/v7/src/microcode/uxsig.c index f1adc6a0f..73378c0fe 100644 --- a/v7/src/microcode/uxsig.c +++ b/v7/src/microcode/uxsig.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsig.c,v 1.19 1992/02/04 00:36:02 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsig.c,v 1.20 1992/02/04 00:42:48 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 @@ -1120,15 +1120,17 @@ DEFUN_VOID (interactive_back_trace) else { transaction_begin (); - FILE * to_dump = (fopen (&input_string[0], "w")); - if (to_dump == ((FILE *) NULL)) { - printf ("Error opening \"%s\".\n", (&input_string[0])); - transaction_abort (); - return; + FILE * to_dump = (fopen (&input_string[0], "w")); + if (to_dump == ((FILE *) NULL)) + { + printf ("Error opening \"%s\".\n", (&input_string[0])); + transaction_abort (); + return; + } + transaction_record_action (tat_always, fclose, ((PTR) to_dump)); + debug_back_trace (to_dump); } - transaction_record_action (tat_always, fclose, ((PTR) to_dump)); - debug_back_trace (to_dump); transaction_commit (); } return; -- 2.25.1