From fad7662d83fc61063f2c27f8977537c03bfba778 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 26 Mar 2017 22:54:21 +0900 Subject: [PATCH] s/display/write-string --- lib/scheme/char/full.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/scheme/char/full.scm b/lib/scheme/char/full.scm index e3e97d72..eaebd23e 100644 --- a/lib/scheme/char/full.scm +++ b/lib/scheme/char/full.scm @@ -89,7 +89,7 @@ (let ((ch (read-char in))) (cond ((not (eof-object? ch)) - (display + (write-string (if (and (not fold?) (eqv? ch #\x03A3)) (let ((ch2 (peek-char in))) (if (or (eof-object? ch2) @@ -108,11 +108,11 @@ (lambda (out) (string-for-each (lambda (ch) - (display (if (memv ch '(#\x03C2 #\x03C3)) - #\x03A3 - (or (char-get-special-case ch 3) - (char-upcase ch))) - out)) + (write-string (if (memv ch '(#\x03C2 #\x03C3)) + #\x03A3 + (or (char-get-special-case ch 3) + (char-upcase ch))) + out)) str)))) (define (string-cmp-ci op a ls)