Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 01:17:35 +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))) (if (and (list? x) (= 3 (length x)))
(string-append (string-append
"." (symbol->string (car x)) " { color: " (cadr x) "." (symbol->string (car x)) " { color: " (cadr x)
"; background-color: " (caddr x) "; }\n") "; background-color: " (car (cddr x)) "; }\n")
(string-append (string-append
"." (symbol->string (car x)) " { color: " "." (symbol->string (car x)) " { color: "
(if (pair? (cdr x)) (cadr x) (cdr x)) (if (pair? (cdr x)) (cadr x) (cdr x))
@ -252,7 +252,7 @@
((zero? n) ((zero? n)
(highlight n (highlight n
'() '()
(cons (highlight-class "syntaxerror" c) (cons (highlight-class "syntaxerror" ")")
(collect str res)))) (collect str res))))
(else (else
;;(highlight-end 'paren ;;(highlight-end 'paren