mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-11 06:57:33 +02:00
fixing non-function c lines beginning with an identifier
This commit is contained in:
parent
1b50d709d2
commit
d1f0dfe8d7
1 changed files with 1 additions and 5 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue