From 6fafdab49ef522b65e4352b134c9a3ed53abab0c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 13 Oct 2005 16:39:51 +0000 Subject: [PATCH] * Renamed kw-proc.ss to kw..ss * Make only #:optopnal and #:key work, no alternative names svn: r1069 original commit: bab76d0479e63f144f5d51831ea89e6e309f87d3 --- collects/mzlib/{kw-proc.ss => kw.ss} | 6 +++--- collects/tests/mzscheme/{kw-proc.ss => kw.ss} | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) rename collects/mzlib/{kw-proc.ss => kw.ss} (98%) rename collects/tests/mzscheme/{kw-proc.ss => kw.ss} (93%) diff --git a/collects/mzlib/kw-proc.ss b/collects/mzlib/kw.ss similarity index 98% rename from collects/mzlib/kw-proc.ss rename to collects/mzlib/kw.ss index 2f1e1ff..58c0936 100644 --- a/collects/mzlib/kw-proc.ss +++ b/collects/mzlib/kw.ss @@ -1,4 +1,4 @@ -(module kw-proc mzscheme +(module kw mzscheme (require-for-syntax (lib "define.ss" "syntax")) @@ -51,11 +51,11 @@ (raise-syntax-error #f (apply format fmt args) stx sub)) (cond [k (case k - [(#:optional #:optionals #:opt #:opts) + [(#:optional) (if state (serror #'formals "misplaced ~a argument" k) (loop 'o #'xs))] - [(#:key #:keys) + [(#:key) (if (memq state '(#f o r!)) (loop 'k #'xs) (serror #'formals "misplaced ~a argument" k))] diff --git a/collects/tests/mzscheme/kw-proc.ss b/collects/tests/mzscheme/kw.ss similarity index 93% rename from collects/tests/mzscheme/kw-proc.ss rename to collects/tests/mzscheme/kw.ss index e053448..aaaf4a0 100644 --- a/collects/tests/mzscheme/kw-proc.ss +++ b/collects/tests/mzscheme/kw.ss @@ -1,9 +1,9 @@ (load-relative "loadtest.ss") -(SECTION 'kw-proc) +(SECTION 'kw) -(require (lib "kw-proc.ss")) +(require (lib "kw.ss")) ;; make sure that lambda/kw behaves as lambda (test 1 (lambda/kw () 1))