# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1258709749 -3600
# Node ID edf065b51fa94456d4328017a183e559ac725110
# Parent  71483d19204fc5865d1cc66684c5d78b1d01a9b3
fix dec2base

diff -r 71483d19204f -r edf065b51fa9 scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Nov 20 10:14:35 2009 +0100
+++ b/scripts/ChangeLog	Fri Nov 20 10:35:49 2009 +0100
@@ -1,3 +1,7 @@
+2009-11-20  Jaroslav Hajek  <highegg@gmail.com>
+
+	* scripts/strings/dec2base.m: Fix division.
+
 2009-11-20  Lukas Reichlin <lukas.reichlin@swissonline.ch>
 
 	* linear-algebra/krylov.m: Add missing swap routine.
diff -r 71483d19204f -r edf065b51fa9 scripts/strings/dec2base.m
--- a/scripts/strings/dec2base.m	Fri Nov 20 10:14:35 2009 +0100
+++ b/scripts/strings/dec2base.m	Fri Nov 20 10:35:49 2009 +0100
@@ -86,7 +86,7 @@
   ## determine digits for each number
   power = ones (length (n), 1) * (base .^ (max_len-1 : -1 : 0));
   n = n(:) * ones (1, max_len);
-  digits = floor (rem (n, base*power) ./ power);
+  digits = floor (double (rem (n, base*power)) ./ power);
 
   ## convert digits to symbols
   retval = reshape (symbols (digits+1), size (digits));