view test/bug-60237/bug_60237.m @ 31170:06c76eca5f95 default tip @

maint: merge stable to default
author John W. Eaton <jwe@octave.org>
date Fri, 29 Jul 2022 12:02:42 -0400
parents 34d06c73b48d
children
line wrap: on
line source

function r = bug_60237 ()
  d = 2;
  function c = bm (a)
    c = a + d;
  endfunction;
  r = ancall (@(a) bm (a), 2);
endfunction

function r = ancall (f, a)
  r = f (a) + 1;
endfunction