summaryrefslogtreecommitdiffstats
path: root/txr.c
diff options
context:
space:
mode:
Diffstat (limited to 'txr.c')
-rw-r--r--txr.c15
1 files changed, 7 insertions, 8 deletions
diff --git a/txr.c b/txr.c
index 40e11ceb..78ea05b9 100644
--- a/txr.c
+++ b/txr.c
@@ -1261,26 +1261,25 @@ int txr_main(int argc, char **argv)
{
if (txr_lisp_p == chr('o')) {
- val result = nil;
uw_block_begin (load_s, ret);
- result = read_compiled_file_noerr(self, parse_stream, spec_file_str,
- std_error);
+ ret = read_compiled_file_noerr(self, parse_stream,
+ spec_file_str, std_error);
uw_block_end;
if (!enter_repl)
- return result ? 0 : EXIT_FAILURE;
+ exit_wrap(ret);
} else if (enter_repl) {
uw_block_begin (load_s, ret);
- read_eval_stream_noerr(self, parse_stream, spec_file_str, std_error);
+ ret = read_eval_stream_noerr(self, parse_stream,
+ spec_file_str, std_error);
uw_block_end;
close_stream(parse_stream, nil);
run_load_hooks(dyn_env);
uw_release_deferred_warnings();
} else {
- val result = nil;
uw_block_begin (load_s, ret);
- result = read_eval_stream(self, parse_stream, std_error);
+ ret = read_eval_stream(self, parse_stream, std_error);
uw_block_end;
- return result ? 0 : EXIT_FAILURE;
+ exit_wrap(ret);
}
}