print treatment for Extort.

extort/Makefile

@@ -10,7 +10,7 @@ endif
 objs = \
 	main.o \
 	values.o \
-	char.o \
+	print.o \
 	io.o
 
 default: runtime.o

extort/main.c

@@ -1,16 +1,13 @@
 #include <stdio.h>
-#include <inttypes.h>
 #include <stdlib.h>
 #include "values.h"
+#include "print.h"
 #include "runtime.h"
 
 FILE* in;
 FILE* out;
 void (*error_handler)();
 
-void print_result(val_t);
-void print_char(val_char_t);
-
 void error_exit()
 {
   printf("err\n");
@@ -37,25 +34,3 @@ int main(int argc, char** argv)
 
   return 0;
 }
-
-void print_result(val_t x)
-{
-  switch (val_typeof(x)) {
-  case T_INT:
-    printf("%" PRId64, val_unwrap_int(x));
-    break;
-  case T_BOOL:    
-    printf(val_unwrap_bool(x) ? "#t" : "#f");
-    break;
-  case T_CHAR:
-    print_char(val_unwrap_char(x));    
-    break;
-  case T_EOF:
-    printf("#<eof>");
-    break;
-  case T_VOID:
-    break;    
-  case T_INVALID:
-    printf("internal error");
-  }
-}

extort/char.c → extort/print.c

@@ -1,11 +1,33 @@
 #include <stdio.h>
 #include <inttypes.h>
-#include "types.h"
 #include "values.h"
 
+void print_char(val_char_t);
 void print_codepoint(val_char_t);
 int utf8_encode_char(val_char_t, char *);
 
+void print_result(val_t x)
+{
+  switch (val_typeof(x)) {
+  case T_INT:
+    printf("%" PRId64, val_unwrap_int(x));
+    break;
+  case T_BOOL:    
+    printf(val_unwrap_bool(x) ? "#t" : "#f");
+    break;
+  case T_CHAR:
+    print_char(val_unwrap_char(x));    
+    break;
+  case T_EOF:
+    printf("#<eof>");
+    break;
+  case T_VOID:
+    break;    
+  case T_INVALID:
+    printf("internal error");
+  }
+}
+
 void print_char(val_char_t c)
 {
   printf("#\\");
@@ -64,3 +86,4 @@ int utf8_encode_char(val_char_t c, char *buffer)
     return 4;
   }
 }
+

extort/print.h

@@ -0,0 +1,8 @@
+#ifndef PRINT_H
+#define PRINT_H
+
+#include "values.h"
+
+void print_result(val_t);
+
+#endif