Support camlp5 by lazily loading Toploop.parse_toplevel_phrase

ocaml-community · Apr 23, 2024 · cc6ce3d · cc6ce3d
1 parent 384b309
commit cc6ce3d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/lib/uTop.ml b/src/lib/uTop.ml
@@ -305,7 +305,7 @@ let parse_default parse str eos_is_error =
     | exn ->
         Error ([], "Unknown parsing error (please report it to the utop project): " ^ Printexc.to_string exn)
 
-let parse_toplevel_phrase_default = parse_default Parse.toplevel_phrase
+let parse_toplevel_phrase_default = fun str -> parse_default !Toploop.parse_toplevel_phrase str
 let parse_toplevel_phrase = ref parse_toplevel_phrase_default
 
 let parse_use_file_default = parse_default Parse.use_file