Shells in OCaml
Hack: Do not exit shell loop if no executable found
This needs to plumbed into the actual execution loop itself rather than
catching it at the very last moment!
+7
-1
+7
-1
src/lib/eval.ml
+7
-1
src/lib/eval.ml
···
622
622
%!";
623
623
exit 1
624
624
end;
625
-
let exit = execute ctx command in
625
+
let exit =
626
+
try execute ctx command
627
+
with
628
+
| Eio.Io (Eio.Process.E (Eio.Process.Executable_not_found m), _ctx)
629
+
->
630
+
Exit.nonzero_msg ctx ~exit_code:127 "command not found: %s" m
631
+
in
626
632
match exit with
627
633
| Exit.Nonzero { exit_code; message; should_exit; _ } -> (
628
634
Option.iter (Fmt.epr "%s\n%!") message;