gistfile1.h

void sly_io_write_c_string(sly_state_t *S, const char* s, sly_oport_t *port)
{
  const char *p;

  for(p = s; p; p++) {
    port_write_char(S, port, (sly_char_t)*p);
  }
}