Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing spacing in definition highlighting

Browse source
This commit is contained in:
Alex Shinn 2011-05-11 06:59:15 +09:00
parent d60c8e5aa6
commit 33f7600640
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

@ -209,8 +209,8 @@
(sym (string->symbol id))) (sym (string->symbol id)))
(cond (cond
((highlight-scheme-definition? sym) ((highlight-scheme-definition? sym)
(let* ((res (cons (read-whitespace in) res)) (let* ((res (cons (highlight-class "keyword" id) res))
(res (cons (highlight-class "keyword" id) res)) (res (cons (read-whitespace in) res))
(res (if (eqv? #\( (peek-char in)) (res (if (eqv? #\( (peek-char in))
(cons (string (read-char in)) res) (cons (string (read-char in)) res)
res))) res)))