Mercurial > hg > octave-lyh

diff scripts/signal/arma_rnd.m @ 4460:cef48c4b902d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-11 18:37:48 by jwe]
author jwe
date Fri, 11 Jul 2003 18:37:48 +0000
parents 22bd65326ec1
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/signal/arma_rnd.m
+++ b/scripts/signal/arma_rnd.m
@@ -42,9 +42,9 @@
 
 function x = arma_rnd (a, b, v, t, n)
 
+  save_warn_empty_list_elements = warn_empty_list_elements;
   unwind_protect
-    orig_listelemok = empty_list_elements_ok;
-    empty_list_elements_ok = "true";
+    warn_empty_list_elements = 0;
 
     if (nargin == 4)
       n = 100;
@@ -81,9 +81,7 @@
     x = x(n + 1 : t + n);
 
   unwind_protect_cleanup
-
-    empty_list_elements_ok = orig_listelemok;
-
+    warn_empty_list_elements = save_warn_empty_list_elements;
   end_unwind_protect
 
 endfunction