Exceptions!!!

src/lisp.c

@@ -4,8 +4,6 @@
 #include "init_globals.h"
 #include "lisp_string.h"
 
-#include <locale.h>
-
 LispVal *obarray;
 
 static void construct_manual_symbols(void) {
@@ -115,9 +113,8 @@ DEFUN(eval, "eval", (LispVal * form, LispVal *lexenv),
     }
     case TYPE_SYMBOL:
         return lookup_variable(form, lexenv);
-    case TYPE_CONS: {
+    case TYPE_CONS:
         return Ffuncall(XCAR(form), XCDR(form));
-    }
     case TYPE_FIXNUM:
     case TYPE_FLOAT:
     default: