- (deAllocStackTop retPrimRepSize `thenFC` \_ ->
- forkAbsC (
- cgLetNoEscapeBody bndr cc cc_slot 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 () })