Mercurial > hg > octave-lyh

diff scripts/strings/dec2base.m @ 5400:c7e3cf2fce3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-07-05 15:01:32 by jwe]
author jwe
date Tue, 05 Jul 2005 15:01:32 +0000
parents 4c8a2e4e0717
children 2911127d0fe7
line wrap: on
line diff
--- a/scripts/strings/dec2base.m
+++ b/scripts/strings/dec2base.m
@@ -95,7 +95,7 @@
   ## have a leading zero to remove.  But if LEN >= MAX_LEN, we should
   ## not remove any leading zeros.
   if ((nargin == 2 || (nargin == 3 && max_len > len))
-      && all (retval(:,1) == symbols(1)))
+      && all (retval(:,1) == symbols(1)) && length (retval) != 1)
     retval = retval(:,2:end);
   endif