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

fixing non-function c lines beginning with an identifier

Browse source
This commit is contained in:
Alex Shinn 2011-04-06 01:36:36 +09:00
parent 1b50d709d2
commit d1f0dfe8d7
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/highlight.scm
View file

@ -318,7 +318,7 @@
,(highlight-class "type" (reverse decls)) ,(highlight-class "type" (reverse decls))
,@res)) ,@res))
(else (else
`(,space ,id ,@(reverse decls) ,@res))))))))) `(,space ,id ,@decls ,@res)))))))))
(else (else
res)))) res))))
(define (highlight str res) (define (highlight str res)
@ -351,10 +351,6 @@
(highlight '() (cons (highlight-class "string" s) res)))) (highlight '() (cons (highlight-class "string" s) res))))
((#\newline) ((#\newline)
(highlight-line (collect (cons #\newline str) res))) (highlight-line (collect (cons #\newline str) res)))
;; ((#\<)
;; (highlight (append '(#\; #\t #\l #\&) str) res))
;; ((#\&)
;; (highlight (append '(#\; #\p #\m #\a #\&) str) res))
(else (else
(cond (cond
((char-c-initial? c) ((char-c-initial? c)