From b0ec9d9671643859cb7cbda2fd1f1951e004c91f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 23 Nov 2016 18:28:47 -0500 Subject: [PATCH] Handle conversion of other chars --- scheme/cyclone/cgen.sld | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 37d6589e..145f2ebe 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -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) '())))