diff src/data.cc @ 777:a2f9d3fd720c

[project @ 1994-10-07 14:01:53 by jwe]
author jwe
date Fri, 07 Oct 1994 14:13:44 +0000 (1994-10-07)
parents 42731861ee09
children 5e45f8f8f8c1
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -38,6 +38,7 @@
 #include "help.h"
 #include "utils.h"
 #include "error.h"
+#include "gripes.h"
 #include "defun.h"
 
 #ifndef MIN
@@ -828,12 +829,15 @@
     case 0:
       retval = 1.0;
       break;
+
     case 1:
       retval = fill_matrix (args(0), 1.0, "ones");
       break;
+
     case 2:
       retval = fill_matrix (args(0), args(1), 1.0, "ones");
       break;
+
     default:
       print_usage ("ones");
       break;
@@ -854,12 +858,15 @@
     case 0:
       retval = 0.0;
       break;
+
     case 1:
       retval = fill_matrix (args(0), 0.0, "zeros");
       break;
+
     case 2:
       retval = fill_matrix (args(0), args(1), 0.0, "zeros");
       break;
+
     default:
       print_usage ("zeros");
       break;
@@ -922,12 +929,15 @@
     case 0:
       retval = 1.0;
       break;
+
     case 1:
       retval = identity_matrix (args(0));
       break;
+
     case 2:
       retval = identity_matrix (args(0), args(1));
       break;
+
     default:
       print_usage ("eye");
       break;