This commit is contained in:
2026-05-15 15:27:20 -06:00
parent dc785ed8f3
commit d38e98d90f
8 changed files with 43 additions and 25 deletions

View File

@@ -3,7 +3,7 @@
SCM scm_write (SCM x) {
if (SCM_IMP (x)) {
printf ("#<immediate %ld>\n", SCM_UNPACK (x));
printf ("#<immediate %ld>\n", SCM_UNPACK (x) >> 2);
} else {
printf ("#<heap object %ld>\n", SCM_UNPACK(x));
}