@@ -336,15 +336,7 @@ cgExpr (SApp tailcall fname args) = do
336336 Nothing -> return Nothing
337337 Just argVals -> do
338338 fn <- var (Glob fname)
339− Just <$> inst
340− Call { isTailCall = tailcall
341− , callingConvention = CC.Fast
342− , returnAttributes = []
343− , function = Right . ConstantOperand . C.GlobalReference . Name $ show fname
344− , arguments = map (\v -> (v, [])) argVals
345− , functionAttributes = []
346− , metadata = []
347− }
339+ Just <$> inst ((idrCall (show fname) argVals) { isTailCall = tailcall })
348340cgExpr (SLet _ varExpr bodyExpr) = do
349341 val <- cgExpr varExpr
350342 binds [val] $ cgExpr bodyExpr