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

make sure that internal definitions work

Browse Source 
svn: r1122
This commit is contained in:
Eli Barzilay 2005-10-21 23:05:50 +00:00
parent 0de18bc3ab
commit 574dd38e96
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mzscheme/kw.ss
View File

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