16 lines
247 B
C
16 lines
247 B
C
#include "wscm.h"
|
|
|
|
int main(void) {
|
|
gcinit();
|
|
|
|
const S *hello = intern("hello", -1);
|
|
const S *goodbye = intern("goodbye", -1);
|
|
O p = cons(BOX(hello), BOX(goodbye));
|
|
addroot(&p);
|
|
|
|
collect();
|
|
println(p);
|
|
|
|
gcfinalize();
|
|
return 0;
|
|
}
|