-
-void init_simple_closure ()
-{
- simple_closure_tag = scm_make_smob_type ("simple-closure", 0);
- scm_set_smob_mark (simple_closure_tag, scm_markcdr);
- scm_set_smob_print (simple_closure_tag, print_simple_closure);
-};
-
-ADD_SCM_INIT_FUNC (simple_closure, init_simple_closure);