mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-11 15:07:34 +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))
|
,(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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue