Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 06:57:33 +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))
,@res))
(else
`(,space ,id ,@(reverse decls) ,@res)))))))))
`(,space ,id ,@decls ,@res)))))))))
(else
res))))
(define (highlight str res)
@ -351,10 +351,6 @@
(highlight '() (cons (highlight-class "string" s) res))))
((#\newline)
(highlight-line (collect (cons #\newline str) res)))
;; ((#\<)
;; (highlight (append '(#\; #\t #\l #\&) str) res))
;; ((#\&)
;; (highlight (append '(#\; #\p #\m #\a #\&) str) res))
(else
(cond
((char-c-initial? c)