Fix crash on file not found

Author: NJdevPro

examples/test

@@ -946,7 +946,7 @@ static size_t read_file(char *fname, char **text) {
     size_t length = 0;
     FILE *f = fopen(fname, "r");
     if (!f) {
-        error("Failed to load file %s", filepos.line_num, fname);
+        printf("Failed to load file %s\n", fname);
         return 0;
     }
 
@@ -957,14 +957,14 @@ static size_t read_file(char *fname, char **text) {
 
     *text = malloc(length + 1);
     if (!*text) {
-        error("Out of memory.", filepos.line_num);
+        puts("Out of memory.");
         fclose(f);
         return 0;
     }
 
     size_t read = fread(*text, 1, length, f);
     if (read != length) {
-        error("Failed to read entire file", filepos.line_num);
+        printf("Failed to read entire file %s\n", fname);
         free(*text);
         *text = NULL;
         fclose(f);

src/minilisp.c

@@ -49,8 +49,6 @@ char *hints(const char *buf, const char **ansi1, const char **ansi2) {
     return NULL;
 }
 
-extern void reset_minilisp(Obj **env);
-
 // This struct keeps track of the current file/line being evaluated
 filepos_t filepos = {"", 0, 1};
 
@@ -85,8 +83,6 @@ void minilisp(char *text, size_t length, bool with_repl, Obj **env, Obj **expr)
             FILE * stream = fmemopen(line, strlen(line), "r");
             // Redirect stdin to the in memory stream in order to use getchar()
             stdin = stream;
-
-            //usleep(10000);
 
             if (line[0] != '\0' && line[0] != '/') {
                 eval_input(line, env, expr);

src/repl.c

@@ -1,4 +1,4 @@
-#!/bin/bash -x
+#!/bin/bash
 
 function fail() {
   echo -n -e '\e[1;31m[ERROR]\e[0m '