X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_c.ml;h=4480200a1fd6923c9183296eea1acedb1c770dfe;hp=28cecdba47367183b8619ceeff6a0f94735c7630;hb=428a45c3e15f03e9861e1b551e1ae8da821dba5f;hpb=6283982e36eeb3d19940618dc0aec88da08c7516

diff --git a/generator/generator_c.ml b/generator/generator_c.ml
index 28cecdb..4480200 100644
--- a/generator/generator_c.ml
+++ b/generator/generator_c.ml
@@ -255,8 +255,10 @@ L</KEYS AND PASSPHRASES> for more information.\n\n";
          | None -> ()
          | Some txt -> pr "%s\n\n" txt
         );
-        let version = lookup_api_version name in
-        pr "(Added in %s)\n\n" version;
+        (match lookup_api_version name with
+         | Some version -> pr "(Added in %s)\n\n" version
+         | None -> ()
+        );
 
         (* Handling of optional argument variants. *)
         if optargs <> [] then (