Handle vertical line char in strings

This commit is contained in:
Justin Ethier 2016-11-19 03:22:46 +00:00
parent dbb25dcb49
commit ac23534bde

View file

@ -497,6 +497,7 @@
((or (equal? #\" c)
(equal? #\' c)
(equal? #\? c)
(equal? #\| c)
(equal? #\\ c))
(cons c buf))
((equal? #\a c) (cons #\alarm buf))