# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1259240928 -3600
# Node ID 8166d596247ea3dffa8fa82e021be6e6c0d0ed01
# Parent  10dcb8b64e4afa2353e568b9f33eb8e33da254e9
fix dot

diff -r 10dcb8b64e4a -r 8166d596247e scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Nov 25 13:31:55 2009 -0500
+++ b/scripts/ChangeLog	Thu Nov 26 14:08:48 2009 +0100
@@ -1,3 +1,7 @@
+2009-11-26  David Grundberg <individ@acc.umu.se>
+
+	* linear-algebra/dot.m: Conjugate first argument.
+
 2009-11-14  Jaroslav Hajek  <highegg@gmail.com>
 
 	* linear-algebra/expm.m: Fix typo.
diff -r 10dcb8b64e4a -r 8166d596247e scripts/linear-algebra/dot.m
--- a/scripts/linear-algebra/dot.m	Wed Nov 25 13:31:55 2009 -0500
+++ b/scripts/linear-algebra/dot.m	Thu Nov 26 14:08:48 2009 +0100
@@ -43,12 +43,12 @@
     if (! size_equal (x, y))
       error ("dot: sizes of arguments must match");
     endif
-    z = sum(x .* y);
+    z = sum(x .* conj (y));
   else
     if (! size_equal (x, y))
       error ("dot: sizes of arguments must match");
     endif
-    z = sum(x .* y, dim);
+    z = sum(x .* conj (y), dim);
   endif
 
 endfunction