mkApFast :: Text -> Code
mkApFast patText =
     getstatic (mkFieldRef (apply "Apply") fullPat rtsFunType)
  <> loadContext
  <> invokevirtual (mkMethodRef rtsFun "enter" [contextType] void)
  -- TODO: We can do better than rtsFun, but it depends on the
  --       determinism of javac.
  where fullPat = append patText "_fast"
mkApFast :: Text -> Code
mkApFast patText =
     getstatic (mkFieldRef (apply "Apply") fullPat rtsFunType)
  <> loadContext
  <> invokevirtual (mkMethodRef rtsFun "enter" [contextType] void)
  -- TODO: We can do better than rtsFun, but it depends on the
  --       determinism of javac.
  where fullPat = append patText "_fast"
mkApFast patText =
     getstatic (mkFieldRef (apply "Apply") fullPat rtsFunType)
  <> loadContext
  <> invokevirtual (mkMethodRef rtsFun "enter" [contextType] void)
  -- TODO: We can do better than rtsFun, but it depends on the
  --       determinism of javac.
  where fullPat = append patText "_fast"