Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-19 10:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed escaped to support the documented double-quoting functionality

Browse source 
when esc-char is #f.
This commit is contained in:
Jim Rees 2018-03-26 06:44:37 -04:00
parent 88e8d89460
commit b3100857fd
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/show/write.scm
View file

@ -41,8 +41,9 @@
(let-optionals* o ((quot #\") (let-optionals* o ((quot #\")
(esc #\\) (esc #\\)
(rename (lambda (x) #f))) (rename (lambda (x) #f)))
(let ((quot-str (if (char? quot) (string quot) quot)) (let ((esc-str (cond ((char? esc) (string esc))
(esc-str (if (char? esc) (string esc) esc))) ((not esc) (string quot))
(else esc))))
(fn (output) (fn (output)
(define (output* str) (define (output* str)
(let ((start (string-cursor-start str)) (let ((start (string-cursor-start str))