make sure that internal definitions work

svn: r1122 original commit: 574dd38e9608ff20f8fab8c6a5622f35776aa08b
2005-10-21 23:05:50 +00:00 · 2005-10-21 23:05:50 +00:00 · 5e476b5ee1
commit 5e476b5ee1
parent f413504664
1 changed files with 5 additions and 0 deletions
--- a/collects/tests/mzscheme/kw.ss
+++ b/collects/tests/mzscheme/kw.ss
@ -197,6 +197,11 @@
    (t '(1 #f 2 3 #f)   f #:x 1 2 #:x 3)
    (t '(1 #:x 2 3 #:x) f #:x 1 #:y #:x #:x 11 2 #:x 3 #:y #:x #:x 33))

+  ;; make sure that internal definitions work
+  (let ([f (lambda/kw (#:key x) (define xx x) xx)])
+    (t #f f)
+    (t 1  f #:x 1))
+
  )

 ;; test syntax errors