This commit is contained in:
+1
-1
@@ -5,7 +5,7 @@ SCM scm_write (SCM x) {
|
||||
if (SCM_IMP (x)) {
|
||||
printf ("#<immediate %ld>\n", SCM_UNPACK (x) >> 2);
|
||||
} else {
|
||||
printf ("#<heap object %ld>\n", SCM_UNPACK(x));
|
||||
printf ("#<heap object %lx>\n", SCM_UNPACK(x));
|
||||
}
|
||||
return SCM_PACK(NULL);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user