nyacc: Use standard \return rather than \cr.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 14:39:36 +0000 (15:39 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 14:39:36 +0000 (15:39 +0100)
module/nyacc/lex.scm

index 1d52393eba19553058f3bc8d1f8c58405a13859e..7820f668bed318ff43fa03dc6a3266bb0653739f 100644 (file)
               ((eq? px (string-length ps))
                (if (and (not eat-newline) (eq? #\newline (car sl)))
                    (unread-char #\newline))
-               (if (and (pair? cl) (eqv? (car cl) #\cr)) ;; rem trailing \r 
+               (if (and (pair? cl) (eqv? (car cl) #\return)) ;; rem trailing \r 
                    (cons tval (list->string (reverse (cdr cl))))
                    (cons tval (list->string (reverse cl)))))
               ((null? il) (find-end cl sl (cons (mc-read-char) il) ps px))