svn: r4238

This commit is contained in:
Robby Findler 2006-09-04 20:46:20 +00:00
parent f2f186445b
commit 4c4c74eb50

View File

@ -227,6 +227,19 @@
(" " default-color)
("1" constant)
("))" default-color)))
(build-test "(define-for-syntax (f x) x)"
'(("(" default-color)
("define-for-syntax" imported-syntax)
(" (" default-color)
("f" lexically-bound-syntax)
(" " default-color)
("x" lexically-bound-variable)
(") " default-color)
("x" lexically-bound-variable)
("))" default-color))
(list '((22 23) (25 26))))
(build-test "(module m mzscheme)"
'(("(" default-color)
("module" imported-syntax)