Mercurial > hg > octave-lyh

diff src/ov-scalar.h @ 4630:ca70857bdbd1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-11-18 18:18:16 by jwe]
author jwe
date Tue, 18 Nov 2003 18:20:11 +0000
parents d44675070f1a
children bd2067547b40
line wrap: on
line diff
--- a/src/ov-scalar.h
+++ b/src/ov-scalar.h
@@ -90,7 +90,7 @@
     { return Matrix (1, 1, scalar); }
 
   NDArray array_value (bool = false) const
-    { return NDArray (dim_vector (1, 1), double_value ()); }
+    { return NDArray (dim_vector (1, 1), scalar); }
 
   Complex complex_value (bool = false) const { return scalar; }
 
@@ -98,7 +98,7 @@
     { return  ComplexMatrix (1, 1, Complex (scalar)); }
 
   ComplexNDArray complex_array_value (bool = false) const
-    { return ComplexNDArray (dim_vector (1, 1), double_value ()); }
+    { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
 
   octave_value convert_to_str_internal (bool pad, bool force) const;