Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

For empty string literals, return the empty symbol

Browse source
This commit is contained in:
Justin Ethier 2017-06-07 17:57:49 +00:00
parent c1f883f19e
commit 57926605a5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/read.sld
View file

@ -640,7 +640,7 @@
(cond (cond
((eq? #\| c) ((eq? #\| c)
(let ((str (if (null? tok) (let ((str (if (null? tok)
"||" ""
(list->string (list->string
(reverse tok))))) (reverse tok)))))
(string->symbol str))) (string->symbol str)))