big

runtime/gyehoek.c

@@ -1,5 +1,11 @@
 #include <stdio.h>
+#include "gyehoek.h"
 
-int blah () {
-  puts ("aaa");
+SCM scm_write (SCM x) {
+  if (SCM_IMP (x)) {
+    printf ("#<immediate %ld>\n", SCM_UNPACK (x));
+  } else {
+    printf ("#<heap object %ld>\n", SCM_UNPACK(x));
+  }
+  return SCM_PACK(NULL);
 }