dsv.scm (dsv-write): Use `cut'
dsv.scm (dsv-write): Fix a bug

* dsv.scm (dsv-write): Fix a bug: Use the default output port instead of the
  default input port if the port is unspecified.
dsv.scm (dsv-write): Remove an extra check