diff --git a/src/Emit.hs b/src/Emit.hs index 3372a22b..a2f2af38 100644 --- a/src/Emit.hs +++ b/src/Emit.hs @@ -530,7 +530,8 @@ toC toCMode (Binder meta root) = emitterSrc (execState (visit startingIndent roo var <- visit indent value let Just t = ty fresh = mangle (freshVar info) - appendToSrc (addIndent indent ++ tyToCLambdaFix t ++ " " ++ fresh ++ " = " ++ var ++ "; // From the 'the' function.\n") + unless (isUnit t) + (appendToSrc (addIndent indent ++ tyToCLambdaFix t ++ " " ++ fresh ++ " = " ++ var ++ "; // From the 'the' function.\n")) pure fresh -- Ref [XObj Ref _ _, value] ->