# HG changeset patch
# User jwe
# Date 1153557640 0
# Node ID 5610a3fdeca633cd0567610f8a4dcd4aa8c34fee
# Parent  c20eb7330d135841d883ab358ac301042913a5c9
[project @ 2006-07-22 08:40:40 by jwe]

diff -r c20eb7330d13 -r 5610a3fdeca6 scripts/ChangeLog
--- a/scripts/ChangeLog	Sat Jul 22 08:31:17 2006 +0000
+++ b/scripts/ChangeLog	Sat Jul 22 08:40:40 2006 +0000
@@ -1,3 +1,7 @@
+2006-07-22  John W. Eaton  <jwe@octave.org>
+
+	* special-matrix/hadamard.m: Coerce bool matrix to double.
+
 2006-07-07  John W. Eaton  <jwe@octave.org>
 
 	* miscellaneous/orderfields.m: New file.
diff -r c20eb7330d13 -r 5610a3fdeca6 scripts/special-matrix/hadamard.m
--- a/scripts/special-matrix/hadamard.m	Sat Jul 22 08:31:17 2006 +0000
+++ b/scripts/special-matrix/hadamard.m	Sat Jul 22 08:40:40 2006 +0000
@@ -161,7 +161,10 @@
        '--++-++++-+-+----+++-----+--';
        '+--++-+-++-+-+----+++-----+-';
        '++--++-+-++-+-+----++------+'];
-  h = (s=='+');
+  ## Without this, the assignment of -1 will not work properly
+  ## (compatibility forces LHS(idx) = ANY_VAL to keep the LHS logical
+  ## instead of widening to a type that can represent ANY_VAL).
+  h = double (s=='+');
   h(!h) = -1;
 endfunction