fix

jk.c

@@ -1231,7 +1231,7 @@ value_t *each_rank(interpreter_t *state, verb_t *f, value_t *x, unsigned int d,
     return state->udf;
 
   if (rec_depth >= max_rec_depth)
-    abort();
+    fatal("recursion-depth");
 
   rec_depth++;
 
@@ -1282,7 +1282,7 @@ value_t *together(interpreter_t *state, verb_t *f, value_t *x, value_t *y,
     return state->udf;
 
   if (rec_depth >= max_rec_depth)
-    abort();
+    fatal("recursion-depth");
 
   rec_depth++;