12 lines
242 B
C
12 lines
242 B
C
#include <stdio.h>
|
|
#include "gyehoek.h"
|
|
|
|
SCM scm_write (SCM x) {
|
|
if (SCM_IMP (x)) {
|
|
printf ("#<immediate %ld>\n", SCM_UNPACK (x) >> 2);
|
|
} else {
|
|
printf ("#<heap object 0x%016lx>\n", SCM_UNPACK (x));
|
|
}
|
|
return SCM_PACK(NULL);
|
|
}
|