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

* Renamed kw-proc.ss to kw..ss

Browse Source 
* Make only #:optopnal and #:key work, no alternative names

svn: r1069
This commit is contained in:
Eli Barzilay 2005-10-13 16:39:51 +00:00
parent 074a6c4100
commit bab76d0479
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/kw-proc.ss → collects/mzlib/kw.ss
View File

@ -1,4 +1,4 @@
(module kw-proc mzscheme (module kw mzscheme
(require-for-syntax (lib "define.ss" "syntax")) (require-for-syntax (lib "define.ss" "syntax"))
@ -51,11 +51,11 @@
(raise-syntax-error #f (apply format fmt args) stx sub)) (raise-syntax-error #f (apply format fmt args) stx sub))
(cond (cond
[k (case k [k (case k
[(#:optional #:optionals #:opt #:opts) [(#:optional)
(if state (if state
(serror #'formals "misplaced ~a argument" k) (serror #'formals "misplaced ~a argument" k)
(loop 'o #'xs))] (loop 'o #'xs))]
[(#:key #:keys) [(#:key)
(if (memq state '(#f o r!)) (if (memq state '(#f o r!))
(loop 'k #'xs) (loop 'k #'xs)
(serror #'formals "misplaced ~a argument" k))] (serror #'formals "misplaced ~a argument" k))]

4
collects/tests/mzscheme/kw-proc.ss → collects/tests/mzscheme/kw.ss
View File

@ -1,9 +1,9 @@
(load-relative "loadtest.ss") (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 ;; make sure that lambda/kw behaves as lambda
(test 1 (lambda/kw () 1)) (test 1 (lambda/kw () 1))

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

@ -40,7 +40,7 @@
(load-relative "match-test.ss") (load-relative "match-test.ss")
(load-relative "kw-proc.ss") (load-relative "kw.ss")
; Next-to-last, because it `require's mzscheme ; Next-to-last, because it `require's mzscheme
(load-relative "shared.ss") (load-relative "shared.ss")