Mercurial > octave

view test/nest/no_closure.m @ 31197:8d4c87e88d0e

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, 23 Aug 2022 19:45:19 +0200
parents fc4bb4bd1d5e
children
line wrap: on
line source

## no_closure.m
function r = no_closure (n)
  if (ischar (n))
    r = nested (n);
  else
    if (n == 0)
      r = @no_closure;
    elseif (n == 1)
      r = @nested;
    endif
  endif
  function r = nested (x)
    if (nargin == 1)
      r = ["nested ", x];
    else
      r = "nested";
    endif
  endfunction
endfunction