forkLneBody :: CodeGen () -> CodeGen Code
forkLneBody body = do
  oldBindings <- getBindings
  oldCode <- getMethodCode
  oldNextLocal <- peekNextLocal
  setMethodCode mempty
  body
  newCode <- getMethodCode
  setMethodCode oldCode
  setNextLocal oldNextLocal
  setBindings oldBindings
  return newCode
forkLneBody :: CodeGen () -> CodeGen Code
forkLneBody body = do
  oldBindings <- getBindings
  oldCode <- getMethodCode
  oldNextLocal <- peekNextLocal
  setMethodCode mempty
  body
  newCode <- getMethodCode
  setMethodCode oldCode
  setNextLocal oldNextLocal
  setBindings oldBindings
  return newCode
forkLneBody body = do
  oldBindings <- getBindings
  oldCode <- getMethodCode
  oldNextLocal <- peekNextLocal
  setMethodCode mempty
  body
  newCode <- getMethodCode
  setMethodCode oldCode
  setNextLocal oldNextLocal
  setBindings oldBindings
  return newCode