Mercurial > hg > octave-lyh

diff scripts/general/prepad.m @ 5459:ff40c78cebf0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-09-20 19:18:34 by jwe]
author jwe
date Tue, 20 Sep 2005 19:18:35 +0000
parents 4c8a2e4e0717
children 34f96dd5441b
line wrap: on
line diff
--- a/scripts/general/prepad.m
+++ b/scripts/general/prepad.m
@@ -70,12 +70,14 @@
     endif
   endif
 
-  if (! ismatrix (x))
-    error ("first argument must be a vector or matrix");
-  elseif (! isscalar (l) || l < 0)
+  if (! isscalar (l) || l < 0)
     error ("second argument must be a positive scaler");
   endif
 
+  if (dim > nd)
+    sz(nd+1:dim) = 1;
+  endif
+
   d = sz (dim);
 
   if (d >= l)