From edc336de7a35190af1eef8a541db2d7084314a2c Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Tue, 31 Mar 2009 10:50:52 +0000
Subject: [PATCH] Fixed a bug when generating some no-arg PROCs

---
 backends/GenerateC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index f0f40eb..afc0fb1 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -2017,7 +2017,7 @@ cgenProcCall n as
                          , ",1,ext_args);}"]
                     
             _ -> do genName n
-                    tell [" (wptr,"]
+                    tell [" (wptr", if null as then "" else ","]
                     (A.Proc _ _ fs _) <- specTypeOfName n
                     call genActuals fs as
                     tell [");\n"]