(xdef 'writec (lambda (c . args) (write-char c (if (pair? args) (car args) (current-output-port))) c))
From ac.scm ©
ac.scm