Mercurial > octave

view test/nest/bug_59989.m @ 31207:1c40fc2344f4 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quad2d.m: Add BIST test to cset b0e90ca8e679 (bug #62972) * quad2d.m: Add BIST test for bug #62972.
author Rik <rik@octave.org>
date Sun, 28 Aug 2022 14:19:43 -0700
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