mikegerwitz
/
ulambda
1
0
Fork 0
Code Releases Activity

rebirth: Properly `quote' strings 

Make sure quoted strings are, well, strings---they need their delimiters!

* build-aux/bootstrap/rebirth.scm (quote-sexp): Proper handling of strings.
master
Mike Gerwitz 2017-12-11 22:26:02 -05:00
parent c3dec75fe7
commit f183ccb2b0
Signed by: mikegerwitz
GPG Key ID: 8C917B7F5DC51BA2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
build-aux/bootstrap/rebirth.scm
View File

@ -562,7 +562,10 @@
;; should not be converted to symbols, as they already are one.
(define (quote-sexp sexp)
(if (token? sexp)
(string-append "Symbol.for('" (sexp->es sexp) "')")
(case (token-type sexp)
(("string") (sexp->es sexp))
(else
(string-append "Symbol.for('" (token-value sexp) "')")))
(string-append
"[" (join "," (map quote-sexp sexp)) "]")))