From d51ba0dd5e19eb989088b2a0fdb1869d1b154b7b Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 16 Sep 2020 16:16:15 +0100
Subject: [PATCH] Bug with duplicate setproducer and setcreator functions

---
 cpdfcommand.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 3d4882d..2e0f669 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1210,10 +1210,10 @@ let setsqueeze () =
   args.squeeze <- true;
   args.create_objstm <- true
 
-let setcreator s =
+let setcreatoraswego s =
   args.creator <- Some s
 
-let setproducer s =
+let setproduceraswego s =
   args.producer <- Some s
 
 let setprepend s =
@@ -2101,10 +2101,10 @@ and specs =
     Arg.String setremovedictentry,
     " Remove an entry from all dictionaries");
    ("-producer",
-    Arg.String setproducer,
+    Arg.String setproduceraswego,
     " Change the /Producer entry in the /Info dictionary");
    ("-creator",
-    Arg.String setcreator,
+    Arg.String setcreatoraswego,
     " Change the /Creator entry in the /Info dictionary");
    ("-list-spot-colors",
     Arg.Unit (setop ListSpotColours),