,
svn: r718
This commit is contained in:
parent
aaa7b3ae65
commit
f35acf442c
|
@ -446,6 +446,16 @@
|
||||||
("\n" default-color)
|
("\n" default-color)
|
||||||
("1" constant)))
|
("1" constant)))
|
||||||
|
|
||||||
|
(build-test "#!\n(lambda (x) x)"
|
||||||
|
'(("#!\n(" default-color)
|
||||||
|
("lambda" imported-syntax)
|
||||||
|
(" (" default-color)
|
||||||
|
("x" lexically-bound-variable)
|
||||||
|
(") " default-color)
|
||||||
|
("x" lexically-bound-variable)
|
||||||
|
(")" default-color))
|
||||||
|
(list '((12 13) (15 16))))
|
||||||
|
|
||||||
(build-test "(module m mzscheme (lambda (x) x) (provide))"
|
(build-test "(module m mzscheme (lambda (x) x) (provide))"
|
||||||
'(("(" default-color)
|
'(("(" default-color)
|
||||||
("module" imported-syntax)
|
("module" imported-syntax)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user