-static
-void start_input_smobs ()
-{
- input_tag = scm_make_smob_type ("input", 0);
- scm_set_smob_mark (input_tag, mark_smob);
- scm_set_smob_free (input_tag, free_smob);
- scm_set_smob_print (input_tag, print_smob);
- scm_set_smob_equalp (input_tag, 0);