Mercurial > hg > octave-image
changeset 5:3ad01c0606eb
minor mod to add unwind_protect
author | aadler |
---|---|
date | Sun, 17 Mar 2002 02:36:12 +0000 |
parents | cd11b4c8ce4c |
children | f048aaec1b2d |
files | impad.m |
diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/impad.m +++ b/impad.m @@ -57,6 +57,9 @@ function retval = impad(A, xpad, ypad, ...) +empty_list_elements_ok_save = empty_list_elements_ok; +unwind_protect + padding = "zeros"; const = 1; va_start(); @@ -130,6 +133,8 @@ error("Unknown padding type"); endif -empty_list_elements_ok = emptywarn; +unwind_protect_cleanup + empty_list_elements_ok = empty_list_elements_ok_save; +end_unwind_protect endfunction