From 1aeb722e27183e4e549d393848b74a990a5e5955 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 6 Jan 2010 19:34:29 +0000 Subject: [PATCH] normalized the results of procedure-arity svn: r17504 original commit: 68efb4008a10f48f758289eca2e38a9eb47f5cf0 --- collects/tests/mzscheme/kw.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/kw.ss b/collects/tests/mzscheme/kw.ss index e0b8b8e..d89e8bd 100644 --- a/collects/tests/mzscheme/kw.ss +++ b/collects/tests/mzscheme/kw.ss @@ -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)))