forced 2443 src/gauche.h SCM_EXTERN ScmObj Scm_MakePromise(int forced, ScmObj code); forced 71 src/promise.c int forced; /* TRUE if code has a thunk */ forced 82 src/promise.c const char *forced = p->content->forced? " (forced)" : ""; forced 84 src/promise.c Scm_Printf(port, "#<promise %p%s>", p, forced); forced 86 src/promise.c Scm_Printf(port, "#<promise(%S) %p%s>", p->kind, p, forced); forced 96 src/promise.c ScmObj Scm_MakePromise(int forced, ScmObj code) forced 101 src/promise.c c->forced = forced; forced 118 src/promise.c if (!p->content->forced) { forced 122 src/promise.c p->content->forced = SCM_PROMISE(result)->content->forced; forced 129 src/promise.c p->content->forced = TRUE; forced 142 src/promise.c if (p->content->forced) SCM_RETURN(p->content->code);