gdb/guile/scm-symbol.c

202   SCM s_scm;
205   s_scm = scm_new_smob (symbol_smob_tag, (scm_t_bits) s_smob);
206   gdbscm_init_eqable_gsmob (&s_smob->base, s_scm);
208   return s_scm;
236   SCM s_scm;
246   s_scm = syscm_make_symbol_smob ();
247   s_smob = (symbol_smob *) SCM_SMOB_DATA (s_scm);
251   return s_scm;
272   SCM s_scm = syscm_get_symbol_arg_unsafe (self, arg_pos, func_name);
273   symbol_smob *s_smob = (symbol_smob *) SCM_SMOB_DATA (s_scm);