summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--txr.c9
1 files changed, 7 insertions, 2 deletions
diff --git a/txr.c b/txr.c
index dc439209..aa1a5eaa 100644
--- a/txr.c
+++ b/txr.c
@@ -665,6 +665,11 @@ int txr_main(int argc, char **argv)
opt_noninteractive = 1;
stream_set_prop(std_input, real_time_k, nil);
continue;
+ } else {
+ drop_privilege();
+ format(std_error, lit("~a: unrecognized long option: --~a\n"),
+ prog_string, opt, nao);
+ return EXIT_FAILURE;
}
}
@@ -793,8 +798,8 @@ int txr_main(int argc, char **argv)
return EXIT_FAILURE;
case '-':
drop_privilege();
- format(std_error, lit("~a: unrecognized long option: --~a\n"),
- prog_string, cdr(optchars), nao);
+ format(std_error, lit("~a: dash in the middle of options: ~a\n"),
+ prog_string, arg, nao);
return EXIT_FAILURE;
default:
drop_privilege();