From f35acf442cc511ff56b9090cb3c2e308d1b0e8c2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 31 Aug 2005 12:35:02 +0000 Subject: [PATCH] , svn: r718 --- collects/tests/drscheme/syncheck-test.ss | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/collects/tests/drscheme/syncheck-test.ss b/collects/tests/drscheme/syncheck-test.ss index 702c4f8165..f47b45a348 100644 --- a/collects/tests/drscheme/syncheck-test.ss +++ b/collects/tests/drscheme/syncheck-test.ss @@ -446,6 +446,16 @@ ("\n" default-color) ("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))" '(("(" default-color) ("module" imported-syntax)