suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r4238

Browse Source
This commit is contained in:
Robby Findler 2006-09-04 20:46:20 +00:00
parent f2f186445b
commit 4c4c74eb50
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/tests/drscheme/syncheck-test.ss
View File

@ -227,6 +227,19 @@
(" " default-color) (" " default-color)
("1" constant) ("1" constant)
("))" default-color))) ("))" 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)" (build-test "(module m mzscheme)"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)