This commit is contained in:
@@ -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));
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user