The tiniest bit of actual progress.

src/c/memory.h

@@ -136,4 +136,10 @@
  */
 #define payload(obj) ((tag32(obj) < 7) ? ((obj & MASK32) << 4) : (obj << 8))
 
+#define errorp(obj) (tag32(obj) == ERRORTV)
+
+#define integerp(obj) (tag32(obj) == INTEGERTV)
+
+#define charp(obj) (tag32(obj) == CHARTV)
+
 #endif

src/c/naegling.c

@@ -31,6 +31,18 @@ void showbits( unsigned int x )
     printf("\n");
 }
 
+void show(uint64_t x) {
+    if(integerp(x)) {
+        // integer
+        printf("%d", (int)payload(x));
+    } else if(charp(x)) {
+        // character
+        printf("#\\%c", (char)payload(x));
+    } 
+    // we're compiling Lisp, not Scheme, so we don't have an explicit boolean
+    // type 
+}
+
 int main(int argc, char **argv) {
 
 	printf( "Naegling, a compiler for Beowulf: version %s\n", VERSION);
@@ -39,6 +51,3 @@ int main(int argc, char **argv) {
     printf("%d\n", val);
     return 0;
 }
-
-	return 0;
-}

src/c/version.h

@@ -10,6 +10,6 @@
 #ifndef __naegling_version_h
 #define __naegling_version_h
 
-#define VERSIOM "Aelfhere"
+#define VERSION "Aelfhere"
 
-#ifndef
+#endif