Updated PO files.

[virt-mem.git] / mem / virt_mem_main.ml

diff --git a/mem/virt_mem_main.ml b/mem/virt_mem_main.ml
index 32d89ff..78c7ab7 100644 (file)
--- a/mem/virt_mem_main.ml
+++ b/mem/virt_mem_main.ml
@@ -19,4 +19,14 @@
    Links everything into a single executable and invokes 'main'.
  *)
 
-Virt_mem.main ()
+(* Because internal commands like 'virt-mem capture' are stored
+ * in a library [*.cma/*.cmxa], they don't automatically get
+ * loaded/registered unless someone seems to be using them.  So
+ * we need to pretend to be using them here.  External commands
+ * like 'virt-ps' are OK because they are linked as *.cmo/*.cmx
+ * files.
+ *)
+let _ = Virt_mem_capture.summary
+
+(* Call main program. *)
+let () = Virt_mem.main ()