From 120a887b3daf7252b23baddca4c6ab36dcdf5764 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 20 May 2012 15:12:09 +0900 Subject: [PATCH] highlighter should output a string in extra-paren error case, not a char --- lib/chibi/highlight.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/chibi/highlight.scm b/lib/chibi/highlight.scm index ffb8b545..42c146ca 100644 --- a/lib/chibi/highlight.scm +++ b/lib/chibi/highlight.scm @@ -80,7 +80,7 @@ (if (and (list? x) (= 3 (length x))) (string-append "." (symbol->string (car x)) " { color: " (cadr x) - "; background-color: " (caddr x) "; }\n") + "; background-color: " (car (cddr x)) "; }\n") (string-append "." (symbol->string (car x)) " { color: " (if (pair? (cdr x)) (cadr x) (cdr x)) @@ -252,7 +252,7 @@ ((zero? n) (highlight n '() - (cons (highlight-class "syntaxerror" c) + (cons (highlight-class "syntaxerror" ")") (collect str res)))) (else ;;(highlight-end 'paren