Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-15 17:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

highlighter should output a string in extra-paren error case, not a char

Browse source
This commit is contained in:
Alex Shinn 2012-05-20 15:12:09 +09:00
parent 057f6b2dea
commit 120a887b3d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/highlight.scm
View file

@ -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