complete on #load_rec the same way as #load

closes #52
2014-01-09 08:46:16 +00:00 · 2014-01-09 08:46:16 +00:00 · ee400fe51b
parent 54701df7bb
commit ee400fe51b
1 changed files with 1 additions and 1 deletions
--- a/src/lib/uTop_complete.ml
+++ b/src/lib/uTop_complete.ml
@ -828,7 +828,7 @@ let complete ~syntax ~phrase_terminator ~input =
      end

    (* Completion on #load. *)
-    | [(Symbol "#", _); (Lident "load", _); (String false, loc)] ->
+    | [(Symbol "#", _); (Lident ("load" | "load_rec"), _); (String false, loc)] ->
        let file = String.sub input (loc.ofs1 + 1) (String.length input - loc.ofs1 - 1) in
        let filter name = Filename.check_suffix name ".cma" || Filename.check_suffix name ".cmo" in
        let map =