# HG changeset patch
# User jwe
# Date 1047978826 0
# Node ID 3192d1c40195536633684e178d55ab291a0a6d1b
# Parent  c45874c087c7b5f128734dc625bd8ed586425d3f
[project @ 2003-03-18 09:13:46 by jwe]

diff -r c45874c087c7 -r 3192d1c40195 scripts/ChangeLog
--- a/scripts/ChangeLog	Mon Mar 17 14:01:56 2003 +0000
+++ b/scripts/ChangeLog	Tue Mar 18 09:13:46 2003 +0000
@@ -1,3 +1,7 @@
+2003-03-18  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* general/shift.m: Force empty_list_elements_ok to 1.
+
 2003-02-22  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* deprecated/struct_contains.m, deprecated/struct_elements.m:
diff -r c45874c087c7 -r 3192d1c40195 scripts/general/shift.m
--- a/scripts/general/shift.m	Mon Mar 17 14:01:56 2003 +0000
+++ b/scripts/general/shift.m	Tue Mar 18 09:13:46 2003 +0000
@@ -49,17 +49,29 @@
     error ("shift: b must be an integer");
   endif
 
-  if (b >= 0)
-    b = rem (b, nr);
-    t1 = x (nr-b+1:nr, :);
-    t2 = x (1:nr-b, :);
-    y = [t1; t2];
-  elseif (b < 0)
-    b = rem (abs (b), nr);
-    t1 = x (b+1:nr, :);
-    t2 = x (1:b, :);
-    y = [t1; t2];
-  endif
+  elo = empty_list_elements_ok;
+
+  unwind_protect
+
+    empty_list_elements_ok = 1;
+
+    if (b >= 0)
+      b = rem (b, nr);
+      t1 = x (nr-b+1:nr, :);
+      t2 = x (1:nr-b, :);
+      y = [t1; t2];
+    elseif (b < 0)
+      b = rem (abs (b), nr);
+      t1 = x (b+1:nr, :);
+      t2 = x (1:b, :);
+      y = [t1; t2];
+    endif
+
+  unwind_protect_cleanup
+
+    empty_list_elements_ok = elo;
+
+  end_unwind_protect
 
   if (nc == 0)
     y = reshape (y, 1, nr);