svn: r718
This commit is contained in:
Robby Findler 2005-08-31 12:35:02 +00:00
parent aaa7b3ae65
commit f35acf442c

View File

@ -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)