sub call_with_current_continuation(&&) {
  my ($rc, $proc) = @_;
  @_ = ($rc, $rc); goto &$proc;
}