Use $STR$ for better quoting in quote-string
This commit is contained in:
parent
c7baf53c3f
commit
657c72c203
1 changed files with 1 additions and 1 deletions
|
|
@ -14,7 +14,7 @@
|
|||
group-list-by-first-n-fields))
|
||||
|
||||
(define (quote-string s)
|
||||
(string-append "'" s "'"))
|
||||
(string-append "$STR$" s "$STR$"))
|
||||
|
||||
(define (value->quoted-string-or-null value)
|
||||
(if (string? value)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue