- (deAllocStackTop retPrimRepSize `thenFC` \_ ->
- forkAbsC (
--- TEMP omit for line-by-line compatibility
--- restoreCurrentCostCentre cc_slot `thenC`
- cgLetNoEscapeBody bndr cc args body
- ) `thenFC` \ abs_c ->
- mkRetDirectTarget bndr abs_c srt
- -- Ignore the label that comes back from
- -- mkRetDirectTarget. It must be conjured up elswhere
- ) `thenFC` \ (vSp, _) ->
+ -- Ignore the label that comes back from
+ -- mkRetDirectTarget. It must be conjured up elswhere
+ ; emitDirectReturnTarget (idName bndr) abs_c srt
+ ; return () })