Ticket #475: utf8.diff

File utf8.diff, 554 bytes (added by Christian Kellermann, 12 years ago)
  • utf8.scm

     
    460460              (to-vec
    461461               (and to (if (char? to) (vector to) (string->vector to)))))
    462462          (let ((trans
    463                  (if to-vec (lambda (i) (display (vector-ref to-vec i))) noop)))
     463                 (if to-vec (lambda (i) (display (vector-ref to-vec i))) void)))
    464464            (with-output-to-string
    465465              (lambda ()
    466466                (let ((end (sp-last str)))