Mercurial > octave

view test/nest/bug_59989.m @ 31221:f5755dbacd8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: merge stable to default
author Pantxo Diribarne <pantxo.diribarne@gmail.com>
date Wed, 31 Aug 2022 22:04:02 +0200
parents 4de13dc0eff2
children
line wrap: on
line source

function y = bug_59989 ()
  unpacker = @(x) sum (x);
  function y = nest1 (x, a)
    y = a + unpacker (x);
  endfunction
  function y = nest2 (fh)
    x = [2, 3];
    y = fh (x);
  endfunction
  a = 1;
  y = nest2 (@(x) nest1 (x, a));
endfunction