From 9cf7180096f4a0f97437a5e159d8f7ac6542580c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 8 Jun 2015 19:36:31 -0700 Subject: Code simplification. * txr.c (txr_main): Replacing two code blocks with single call to existing open_txr_file function. --- txr.c | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'txr.c') diff --git a/txr.c b/txr.c index 2ba3cc40..23055734 100644 --- a/txr.c +++ b/txr.c @@ -631,11 +631,7 @@ int txr_main(int argc, char **argv) arg_list = arg_undo; } else if (spec_file) { if (wcscmp(c_str(spec_file), L"-") != 0) { - FILE *in = w_fopen(c_str(spec_file), L"r"); - if (in == 0) - uw_throwf(file_error_s, lit("unable to open ~a"), spec_file, nao); - parse_stream = make_stdio_stream(in, spec_file); - spec_file_str = spec_file; + open_txr_file(spec_file, &spec_file_str, &parse_stream); } else { spec_file_str = lit("stdin"); } @@ -650,11 +646,7 @@ int txr_main(int argc, char **argv) } if (!equal(arg, lit("-"))) { - FILE *in = w_fopen(c_str(arg), L"r"); - if (in == 0) - uw_throwf(file_error_s, lit("unable to open ~a"), arg, nao); - parse_stream = make_stdio_stream(in, arg); - spec_file_str = arg; + open_txr_file(arg, &spec_file_str, &parse_stream); } else { spec_file_str = lit("stdin"); } -- cgit v1.2.3