Mercurial > hg > octave-nkf

diff src/data.cc @ 610:14b2a186a5c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-14 00:55:49 by jwe]
author jwe
date Sun, 14 Aug 1994 01:01:32 +0000
parents 205b8c2ef749
children 8e4e7e5f307e
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -339,6 +339,9 @@
 
   switch (nargin)
     {
+    case 1:
+      retval = 1.0;
+      break;
     case 2:
       retval = fill_matrix (args(1), 1.0, "ones");
       break;
@@ -362,6 +365,9 @@
 
   switch (nargin)
     {
+    case 1:
+      retval = 0.0;
+      break;
     case 2:
       retval = fill_matrix (args(1), 0.0, "zeros");
       break;
@@ -427,6 +433,9 @@
 
   switch (nargin)
     {
+    case 1:
+      retval = 1.0;
+      break;
     case 2:
       retval = identity_matrix (args(1));
       break;