Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handle conversion of other chars

Browse source
This commit is contained in:
Justin Ethier 2016-11-23 18:28:47 -05:00
parent 8bc379d7c8
commit b0ec9d9671
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/cgen.sld
View file

@ -71,6 +71,14 @@
((equal? (car head) #\newline)
(next (cdr head)
(cons #\n (cons #\\ tail))))
((equal? (car head) #\alarm)
(next (cdr head) (cons #\a (cons #\\ tail))))
((equal? (car head) #\backspace)
(next (cdr head) (cons #\b (cons #\\ tail))))
((equal? (car head) #\return)
(next (cdr head) (cons #\r (cons #\\ tail))))
((equal? (car head) #\tab)
(next (cdr head) (cons #\t (cons #\\ tail))))
(else
(next (cdr head) (cons (car head) tail)))))))
(next (string->list str) '())))