/* Obj is PTR, except pair and vector */ static void write_general(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) { ScmClass *c = Scm_ClassOf(obj); if (c->print) c->print(obj, out, ctx); else write_object(obj, out, ctx); }