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

normalized the results of procedure-arity

Browse Source 
svn: r17504

original commit: 68efb4008a10f48f758289eca2e38a9eb47f5cf0
This commit is contained in:
Robby Findler 2010-01-06 19:34:29 +00:00
parent 40cf224166
commit 1aeb722e27
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,7 @@
;; using only optionals
(t (procedure-arity (lambda/kw (#:optional) 0)) => 0
(procedure-arity (lambda/kw (x #:optional y z) 0)) => '(3 1 2))
(procedure-arity (lambda/kw (x #:optional y z) 0)) => '(1 2 3))
(let ([f (lambda/kw (x #:optional y) (list x y))])
(t (f 0) => '(0 #f)
(f 0 1) => '(0 1)))