diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-11-10 22:44:30 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-11-10 22:44:30 +0000 |
commit | 22ad074858deca1c87bd9ebcd868ec353a5d65a4 (patch) | |
tree | 474b5cd40eaa1e487ac7464ab77a1bc34f1258a4 | |
parent | b4e15479e93409413bb1dab28c53d9e80302b1ee (diff) | |
download | guile-22ad074858deca1c87bd9ebcd868ec353a5d65a4.tar.gz |
(11): New.
-rw-r--r-- | BUGS | 33 |
1 files changed, 33 insertions, 0 deletions
@@ -233,4 +233,37 @@ Bill Gribble sez: > version of libltdl. +bug 11 -- (ice-9 optargs) #:rest arg polluted by keys/values +reported-by: ttn / 2001-11-09 +fixed: not-yet + +ttn sez: +> the following code displays +> +> (#<procedure good x> ()) +> (#<procedure good x> (1)) +> (#<procedure good x> ((1 2 3))) +> (#<procedure blah x> JAY KAY (#:j JAY #:k KAY)) +> (#<procedure blah x> JAY KAY (#:j JAY #:k KAY 1)) +> (#<procedure blah x> JAY KAY (#:j JAY #:k KAY (1 2 3))) +> +> but `x' should be the same for both `good' and `blah': +> +> (use-modules (ice-9 optargs) (ice-9 rdelim)) +> +> (define* (good #:rest x) +> (write-line (list good x))) +> +> (good) +> (good 1) +> (good '(1 2 3)) +> +> (define* (blah #:key (j 'j) (k 'k) #:rest x) +> (write-line (list blah j k x))) +> +> (blah #:j 'JAY #:k 'KAY) +> (blah #:j 'JAY #:k 'KAY 1) +> (blah #:j 'JAY #:k 'KAY '(1 2 3)) + + [BUGS ends here] |