Skip to content
Snippets Groups Projects
Commit 28718a32 authored by erwan's avatar erwan
Browse files

rdbg: amend

parent 3a53f5c0
No related branches found
No related tags found
No related merge requests found
Pipeline #52553 passed
......@@ -46,8 +46,6 @@ let gui str =
Printf.fprintf oc_stdin "%s\n" str; (* sent the session choice *)
(* Printf.fprintf oc_stdin "#require \"sasa\";;\n%!" ; *)
(* Printf.fprintf oc_stdin "#use \"sasa-rdbg-cmds.ml\";;\n%!"; *)
Printf.fprintf oc_stdin
"if args.suts = [] && args.envs = [] then (print_string \"quit();;\n; ignore (exit 2);;\n\")\n%!";
Printf.fprintf oc_stdin
"del_hook \"print_event\"; add_hook \"print_event\" (print_sasa_event false);;\n%!";
(* Printf.fprintf oc_stdin "print_sasa_event false !e;;\n"; (* print the first event *) *)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment