Static C functions; clean up

1 files changed, 1 insertions, 1 deletions

diff --git a/SC/Exp.hs b/SC/Exp.hs
index 5c0bc72..ef18a7f 100644
--- a/SC/Exp.hs
+++ b/SC/Exp.hs
@@ -54,7 +54,7 @@ compileFun aenv (A.Lam lhs (A.Body body)) = do
             ++ map (\(TypedName t n) -> (t, n)) (itupList argnames)
             ++ map (\(TypedName t n) -> (t, n)) (itupList outnames)
     return $ CompiledFun
-        (C.ProcDef funname arguments (sts1 ++ sts2))
+        (C.ProcDef C.defAttrs { C.faStatic = True }funname arguments (sts1 ++ sts2))
         (\argexprs destnames ->
             map (C.EVar . snd) arrayarguments
             ++ itupList argexprs