Spring_smob::Spring_smob ()
{
- distance_ =0.;
+ distance_ = 0.;
strength_ =1.0;
expand_only_b_ = false;
other_ = 0;
Spring_smob::mark_smob (SCM) { return SCM_UNSPECIFIED; }
int
-Spring_smob::print_smob (SCM s, SCM p, scm_print_state *)
+Spring_smob::print_smob (SCM, SCM p, scm_print_state *)
{
- Spring_smob *ss = unsmob_spring (s);
scm_puts ("#<Spring smob>", p);
return 1;
}
SCM
Spring_smob::equal_p (SCM a , SCM b)
{
- return a==b? SCM_BOOL_T : SCM_BOOL_F;
+ return a == b? SCM_BOOL_T : SCM_BOOL_F;
}