# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1248531760 -7200
# Node ID e929449b9b037408ada1cf3046632b09218a2401
# Parent  efdc5df061b680262ba449452c52559974b34860
fix Cholesky updating with scalars

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2009-07-23  Jaroslav Hajek  <highegg@gmail.com>
+
+	* DLD-FUNCTIONS/chol.cc (Fcholupdate,
+	Fcholinsert, Fcholdelete, Fcholshift): Replace is_matrix_type ->
+	is_numeric_type.
+
 2009-07-20  Aleksej Saushev  <asau@inbox.ru>
 
 	* sysdep.cc: Also define BSD_init if __NetBSD__ is defined.
diff --git a/src/DLD-FUNCTIONS/chol.cc b/src/DLD-FUNCTIONS/chol.cc
--- a/src/DLD-FUNCTIONS/chol.cc
+++ b/src/DLD-FUNCTIONS/chol.cc
@@ -619,7 +619,7 @@
   octave_value argr = args(0);
   octave_value argu = args(1);
 
-  if (argr.is_matrix_type () && argu.is_matrix_type ()
+  if (argr.is_numeric_type () && argu.is_numeric_type ()
       && (nargin < 3 || args(2).is_string ()))
     {
       octave_idx_type n = argr.rows ();
@@ -830,7 +830,7 @@
   octave_value argj = args(1);
   octave_value argu = args(2);
 
-  if (argr.is_matrix_type () && argu.is_matrix_type ()
+  if (argr.is_numeric_type () && argu.is_numeric_type ()
       && argj.is_real_scalar ())
     {
       octave_idx_type n = argr.rows ();
@@ -1003,7 +1003,7 @@
   octave_value argr = args(0);
   octave_value argj = args(1);
 
-  if (argr.is_matrix_type () && argj.is_real_scalar ())
+  if (argr.is_numeric_type () && argj.is_real_scalar ())
     {
       octave_idx_type n = argr.rows ();
       octave_idx_type j = argj.scalar_value ();
@@ -1141,7 +1141,7 @@
   octave_value argi = args(1);
   octave_value argj = args(2);
 
-  if (argr.is_matrix_type () && argi.is_real_scalar () && argj.is_real_scalar ())
+  if (argr.is_numeric_type () && argi.is_real_scalar () && argj.is_real_scalar ())
     {
       octave_idx_type n = argr.rows ();
       octave_idx_type i = argi.scalar_value ();