Mercurial > octave

view test/nest/no_closure.m @ 31390:2c037ce00450 stable release-7-3-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version 7.3.0 released. * configure.ac (AC_INIT): Set version to 7.3.0. (OCTAVE_MINOR_VERSION): Now 3. (OCTAVE_PATCH_VERSION): Now 0. (OCTAVE_RELEASE_DATE): Set to "2022-11-02". * org.octave.Octave.appdata.xml: Add release info for version 7.3.0. * CITATION: Update for 7.3.0. * NEWS.7.md: Update release date.
author John W. Eaton <jwe@octave.org>
date Wed, 02 Nov 2022 14:19:56 -0400
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