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

fix: use the new rdbg-session files naming convention in rdbgui4sasa

parent a1a7985b
No related branches found
No related tags found
No related merge requests found
......@@ -16,8 +16,8 @@ let rdbg_cmd =
String.concat " " ("rdbg"::sasa_opt::str::[])
let gui =
Printf.sprintf " --ocaml-cmd \"#use \\\"gtkgui.ml\\\";;\""
Printf.sprintf " --ocaml-cmd \"#use \\\"gtkgui.ml\\\";;\""
let welcome () =
Printf.printf "rdbgui4sasa is a GUI wrapper around rdbg when used with sasa\n";
......@@ -30,7 +30,7 @@ let welcome () =
let _ =
let n = Array.length Sys.argv in
welcome ();
if n = 1 && Mypervasives.ls "rdbg-session" "ml" = [] then exit 0;
if n = 1 && Mypervasives.ls ".rdbg-session" "ml" = [] then exit 0;
let cmd = rdbg_cmd ^ gui in
Printf.printf "%s\n%!" cmd;
Sys.command cmd
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