}
int
-Unpure_pure_container::print_smob (SCM s, SCM port, scm_print_state *)
+Unpure_pure_container::print_smob (SCM port, scm_print_state *)
{
- Unpure_pure_container *p = Unpure_pure_container::unsmob (s);
scm_puts ("#<unpure-pure-container ", port);
- scm_display (p->unpure_part (), port);
- if (!p->is_unchanging ())
+ scm_display (unpure_part (), port);
+ if (!is_unchanging ())
{
scm_puts (" ", port);
- scm_display (p->pure_part (), port);
+ scm_display (pure_part (), port);
}
scm_puts (" >", port);
return 1;