Delete repl.h

Author: NJdevPro

examples/hanoi.lisp

@@ -1,12 +1,5 @@
 (defun list (x . y) (cons x y))
 
-(defun mapc1 (fn xs)
-  (if (= () xs)
-      ()
-      (progn 
-        (fn (car xs)) 
-        (mapc1 fn (cdr xs)))))
-
 (defun hanoi-print (disk from to)
   (println (string-concat "Move disk " disk 
     " from " (symbol->string from) 

src/minilisp.c

@@ -11,7 +11,6 @@
 #include <string.h>
 #include "minilisp.h"
 #include "gc.h"
-#include "repl.h"
 
 jmp_buf context;
 
@@ -412,6 +411,7 @@ static Obj *apply(void *root, Obj **env, Obj **fn, Obj **args) {
         return apply_func(root, env, fn, eargs);
     }
     error("not supported");
+    return Nil; //fix warning
 }
 
 // Searches for a variable by symbol. Returns null if not found.
@@ -492,6 +492,7 @@ static Obj *eval(void *root, Obj **env, Obj **obj) {
     default:
         error("Bug: eval: Unknown tag type: %d", (*obj)->type);
     }
+    return Nil; // fix warning
 }
 
 //======================================================================

src/minilisp.h

@@ -76,6 +76,11 @@ typedef struct Obj {
     };
 } Obj;
 
+typedef struct {
+    char *filename;
+    size_t file_len;
+    int line_num;
+} filepos_t;
 
 void init_minilisp(Obj **env);
 int eval_input(char *input, Obj **env, Obj **expr);

src/repl.c

@@ -7,7 +7,6 @@
 #include "../bestline/bestline.h"
 #include "ketopt.h"
 #include "gc.h"
-#include "repl.h"
 #include "minilisp.h"
 
 int ends_with(const char *str, const char *suffix)