Searched refs:SCM_CLOSURE (Results 1 – 9 of 9) sorted by relevance
202 FINISH_ENV(SCM_PROCEDURE_INFO(VAL0), SCM_CLOSURE(VAL0)->env);204 ENV = SCM_CLOSURE(VAL0)->env;207 vm->base = SCM_COMPILED_CODE(SCM_CLOSURE(VAL0)->code);
193 (return (and (SCM_CLOSUREP obj) (== (-> (SCM_CLOSURE obj) env) NULL))))
290 if (SCM_FALSEP(Scm_Assq(SCM_CLOSURE(g)->code, lifted))) { in check_lifted_closure()291 return Scm_Acons(SCM_CLOSURE(g)->code, in check_lifted_closure()
1613 #define SCM_CLOSURE(obj) ((ScmClosure*)(obj)) macro1614 #define SCM_CLOSURE_CODE(obj) SCM_CLOSURE(obj)->code1615 #define SCM_CLOSURE_ENV(obj) SCM_CLOSURE(obj)->env
597 (FINISH-ENV SCM_FALSE (-> (SCM_CLOSURE VAL0) env))]599 (set! ENV (-> (SCM_CLOSURE VAL0) env))601 (set! (-> vm base) (SCM_COMPILED_CODE (-> (SCM_CLOSURE VAL0) code)))
901 FINISH_ENV(SCM_FALSE,(SCM_CLOSURE(VAL0))->env);} else { in CASE()903 ENV=((SCM_CLOSURE(VAL0))->env); in CASE()905 (vm)->base=(SCM_COMPILED_CODE((SCM_CLOSURE(VAL0))->code)); in CASE()
1674 {SCM_RESULT=((SCM_CLOSUREP(obj))&&(((SCM_CLOSURE(obj))->env)==(NULL)));goto SCM_STUB_RETURN;} in libproctoplevel_closureP()1693 clo = SCM_CLOSURE(clo_scm); in libprocclosure_code()1870 clo = SCM_CLOSURE(clo_scm); in libproc_25closure_env_TOlist()
2501 m->common.leaf = method_leaf_p(SCM_CLOSURE(body)); in method_initialize()
292 … (-> (SCM_CLOSURE VAL0) env))) (else (set! ENV (-> (SCM_CLOSURE VAL0) env)) (set! ARGP SP))) (set!…