Ticket #475: utf8.diff

utf8.scm

@@ -460 +460 @@
               (to-vec
                (and to (if (char? to) (vector to) (string->vector to)))))
           (let ((trans
-                 (if to-vec (lambda (i) (display (vector-ref to-vec i))) noop)))
+                 (if to-vec (lambda (i) (display (vector-ref to-vec i))) void)))
             (with-output-to-string
               (lambda ()
                 (let ((end (sp-last str)))