move error.c to main.c

error.c

@@ -1,31 +0,0 @@
-#include "dat.h"
-#include "fn.h"
-#include <stdlib.h>
-#include <stdarg.h>
-#include <setjmp.h>
-
-void
-panic(char *fmt, ...)
-{
-	va_list ap;
-	va_start(ap, fmt);
-	vfprintf(stderr, fmt, ap);
-	va_end(ap);
-	fprintf(stderr, "\n");
-	exit(1);
-}
-
-void
-error(char *fmt, ...)
-{
-	extern jmp_buf *errptr;
-	va_list ap;
-
-	va_start(ap, fmt);
-	fprintf(stderr, "ERROR => ");
-	vfprintf(stderr, fmt, ap);
-	va_end(ap);
-	fprintf(stderr, "\n");
-	longjmp(*errptr, 1);
-	exit(1);
-}

main.c

@@ -1,10 +1,37 @@
 #include "dat.h"
 #include "fn.h"
 #include <setjmp.h>
+#include <stdarg.h>
+#include <stdlib.h>
 
-jmp_buf *errptr;
+jmp_buf err;
 GC *gc;
 
+void
+panic(char *fmt, ...)
+{
+	va_list ap;
+	va_start(ap, fmt);
+	vfprintf(stderr, fmt, ap);
+	va_end(ap);
+	fprintf(stderr, "\n");
+	exit(1);
+}
+
+void
+error(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	fprintf(stderr, "ERROR => ");
+	vfprintf(stderr, fmt, ap);
+	va_end(ap);
+	fprintf(stderr, "\n");
+	longjmp(err, 1);
+	exit(1);
+}
+
 static void
 SExprint(Object *obj)
 {
@@ -64,9 +91,7 @@ printexpr(Object *obj)
 static void
 loop(Object *env, FILE *f)
 {
-    jmp_buf buf;
+	if(setjmp(err) == 1){
-    errptr = &buf;
-	if(setjmp(buf) == 1){
 		if(feof(f))
 			return;
 		skipline(f);

makefile

@@ -1,7 +1,6 @@
 NAME=lisp
 OFILES=\
 	bltin.o\
-	error.o\
 	eval.o\
 	main.o\
 	gc.o\