lib: diagnostic functions moved out of arith.c.

* arith.c (invalid_ops, invalid_op): Static functions removed.

* unwind.c (invalid_oips, invalid_op): Functions added here,
as external functions.

* unwind.h (invalid_oips, invalid_op): Declared.

3 files changed, 13 insertions, 11 deletions

diff --git a/arith.c b/arith.c
index 5e126f93..c4642782 100644
--- a/arith.c
+++ b/arith.c
@@ -132,17 +132,6 @@ static NORETURN void not_integer(val self, val obj)
   uw_throwf(type_error_s, lit("~a: ~s is not an integer"), self, obj, nao);
 }
 
-static NORETURN void invalid_ops(val self, val obj1, val obj2)
-{
-  uw_throwf(type_error_s, lit("~a: invalid operands ~s ~s"), self,
-            obj1, obj2, nao);
-}
-
-static NORETURN void invalid_op(val self, val obj)
-{
-  uw_throwf(type_error_s, lit("~a: invalid operand ~s"), self, obj, nao);
-}
-
 int num_to_buffer(val num, mem_t *buf, int bytes)
 {
   switch (type(num)) {
diff --git a/unwind.c b/unwind.c
index 3e88062a..c0516979 100644
--- a/unwind.c
+++ b/unwind.c
@@ -848,6 +848,17 @@ val type_mismatch(val fmt, ...)
   abort();
 }
 
+NORETURN void invalid_ops(val self, val obj1, val obj2)
+{
+  uw_throwf(type_error_s, lit("~a: invalid operands ~s ~s"), self,
+            obj1, obj2, nao);
+}
+
+NORETURN void invalid_op(val self, val obj)
+{
+  uw_throwf(type_error_s, lit("~a: invalid operand ~s"), self, obj, nao);
+}
+
 val uw_defer_warning(val args)
 {
   val msg = car(args);
diff --git a/unwind.h b/unwind.h
index a18ba351..9b17e282 100644
--- a/unwind.h
+++ b/unwind.h
@@ -384,6 +384,8 @@ void uw_init(void);
 void uw_late_init(void);
 
 NORETURN val type_mismatch(val, ...);
+NORETURN void invalid_ops(val self, val obj1, val obj2);
+NORETURN void invalid_op(val self, val obj);
 
 #define uw_mark_frame                           \
   uw_frame_t *uw_top = uw_current_frame()