Mercurial > octave

view test/octave.test/unwind/unwind-2.m @ 2621:337a09dd1c06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-01-24 21:49:41 by jwe]
author jwe
date Fri, 24 Jan 1997 21:55:06 +0000
parents 98d0771f7484
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)