home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / test / octave.test / unwind / unwind-2.m < prev    next >
Text File  |  1996-09-28  |  188b  |  15 lines
  1. global g = -1;
  2. function f (x)
  3.   global g;
  4.   save_g = g;
  5.   unwind_protect
  6.     g = 0
  7.     [1,2;x];
  8.     g = 1
  9.   unwind_protect_cleanup
  10.     g = save_g;
  11.   end_unwind_protect
  12. endfunction
  13. f (3)
  14. g
  15.