diff --git a/BUGS b/BUGS index 632157fb2..9342b1af8 100644 --- a/BUGS +++ b/BUGS @@ -232,5 +232,38 @@ Bill Gribble sez: > convenience ltdl library be removed, instead depending on an installed > 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 +> +> (# ()) +> (# (1)) +> (# ((1 2 3))) +> (# JAY KAY (#:j JAY #:k KAY)) +> (# JAY KAY (#:j JAY #:k KAY 1)) +> (# 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]