idk

2026-05-16 18:59:12 -06:00
parent 9f3628d8ac
commit c58077e65a
6 changed files with 22 additions and 10 deletions
@@ -1,11 +1,16 @@
 #include <stdio.h>
 #include "gyehoek.h"

+SCM scm_newline () {
+  putc ('\n', stdout);
+  return SCM_PACK(NULL);
+}
+
 SCM scm_write (SCM x) {
  if (SCM_IMP (x)) {
-    printf ("#<immediate %ld>\n", SCM_UNPACK (x) >> 2);
+    printf ("%ld", SCM_UNPACK (x) >> 2);
  } else {
-    printf ("#<heap object 0x%016lx>\n", SCM_UNPACK (x));
+    printf ("#<heap object 0x%016lx>", SCM_UNPACK (x));
  }
  return SCM_PACK(NULL);
 }