Removed setjmp inclusion

TODO

@@ -10,3 +10,4 @@ These are the things I'll get to do when I get to do them:
 
   * "prenucleus" using just the states, not the action to compare. possibly return also the relations that are needed to make it a nucleus, something like the "triangles".
   * abstract triangulations: just work with pairs/triples of conjugacy classes. do the lifting symbolically. train tracks.
+  * submachines, esp. with subalphabets

src/cpoly.C

@@ -46,7 +46,7 @@ static xcomplex cauchy(const int deg, xcomplex *P)
   dx = x;
 
    // Do Newton iteration until x converges to two decimal places
-  while(fabs(dx / x) > 0.005) {
+  while(fabsl(dx / x) > 0.005) {
     f  = tmp[0];
     df = 0.0;
     for(int i = 1; i <= deg; i++){

src/img_dll.c

@@ -31,7 +31,9 @@ static void baby_please_dont_go (void) {
 }
 
 /* in code:
-
+...
+#include <setjmp.h>
+...
    atexit (baby_please_dont_go);
    if (setjmp(e_t_go_home))
      return __result;
@@ -176,7 +178,9 @@ static Obj REAL_ROOTS (Obj self, Obj coeffs)
       p = INT_INTOBJ(ELM_PLIST(negind,-v));			\
   }
 
-#define EXP_LETTER(v) (INT_INTOBJ(ELM_PLIST(exp,abs(v))))
+Int Intabs(Int v) { return v > 0 ? v : -v; }
+
+#define EXP_LETTER(v) (INT_INTOBJ(ELM_PLIST(exp,Intabs(v))))
 
 #define FIND_MATCH(match,matchlen) {					\
   matchlen = 1;								\
@@ -230,7 +234,7 @@ static Obj NFFUNCTION(Obj self, Obj rel, Obj exp, Obj dir, Obj word)
     */
     Int vi = INT_INTOBJ(ELM_PLIST(word,i));
     if (EXP_LETTER(vi)==2)
-      vi = abs(vi);
+      vi = Intabs(vi);
     Int idle;
 
     if (vi == -vlast) { /* pop letter */

src/img_dll.h

@@ -12,11 +12,9 @@
 
 #undef VERY_LONG_DOUBLES
 
-/* #define sigjmp_buf int */
 #include <stdlib.h>
 #include <math.h>
 #include <float.h>
-#include <setjmp.h>
 #include "src/compiled.h"
 #include "src/macfloat.h"
 #include "poly.h"