view test/nest/nst1.m @ 33589:f07a7fe7bd51 default tip @

maint: merge stable to default
author Rik <rik@octave.org>
date Thu, 16 May 2024 08:32:01 -0700
parents 6e9034836239
children
line wrap: on
line source

function fh = nst1 (xval)
  if (nargin > 0)
    x = xval;
  end
  fh = @nst;
  function r = nst (xval)
    if (nargin > 0)
      x = xval;
    end
    r = x;
  end
end