Mercurial > octave

view test/nest/bug_59989.m @ 31217:1469658f769b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge stable to default.
author Markus Mützel <markus.muetzel@gmx.de>
date Tue, 30 Aug 2022 18:27:00 +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