Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

s/display/write-string

Browse source
This commit is contained in:
Alex Shinn 2017-03-26 22:54:21 +09:00
parent 30486cb6b6
commit fad7662d83
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/scheme/char/full.scm
View file

@ -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)