Mercurial > octave-nkf

view test/octave.test/unwind/unwind-2.m @ 4960:ce01dbd7e026 ss-2-1-58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-09-02 03:47:49 by jwe]
author jwe
date Thu, 02 Sep 2004 03:47:49 +0000
parents 337a09dd1c06
children
line wrap: on
line source

global g = -1;
function f (x)
  global g;
  save_g = g;
  unwind_protect
    g = 0
    [1,2;x];
    g = 1
  unwind_protect_cleanup
    g = save_g
  end_unwind_protect
endfunction
f (3)