improved loadMatrix

1 files changed, 4 insertions, 1 deletions

diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c
index efb82af..2f47c8f 100644
--- a/packages/base/src/C/vector-aux.c
+++ b/packages/base/src/C/vector-aux.c
@@ -654,6 +654,9 @@ int zipQ(int code, KQVEC(a), KQVEC(b), QVEC(r)) {
 int vectorScan(char * file, int* n, double**pp){
     FILE * fp;
     fp = fopen (file, "r");
+    if(!fp) {
+        ERROR(BAD_FILE);
+    }
     int nbuf = 100*100;
     double * p = (double*)malloc(nbuf*sizeof(double));
     int k=0;
@@ -667,7 +670,7 @@ int vectorScan(char * file, int* n, double**pp){
         if (k==nbuf) {
             nbuf = nbuf * 2;
             p = (double*)realloc(p,nbuf*sizeof(double));
-            //printf("R\n");
+            // printf("R\n");
         }
         p[k++] = d;
     }