guile/guile-core BUGS

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Thien-Thi Nguyen <address@hidden>       01/11/10 17:46:06

Modified files:
        guile-core     : BUGS 

Log message:
        (11): New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/BUGS.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.1.2.9&tr2=1.1.2.10&r1=text&r2=text

Patches:
Index: guile/guile-core/BUGS
diff -u guile/guile-core/BUGS:1.9 guile/guile-core/BUGS:1.10
--- guile/guile-core/BUGS:1.9   Tue Nov  6 21:55:05 2001
+++ guile/guile-core/BUGS       Sat Nov 10 17:44:30 2001
@@ -233,4 +233,37 @@
 > 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]