17 lines
297 B
C
17 lines
297 B
C
#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 ("%ld", SCM_UNPACK (x) >> 2);
|
|
} else {
|
|
printf ("#<heap object 0x%016lx>", SCM_UNPACK (x));
|
|
}
|
|
return SCM_PACK(NULL);
|
|
}
|