mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 15:40:29 +02:00
Code Activity

(11): New.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2001-11-10 22:46:06 +00:00
parent 2f34294af5
commit eaed048f82
1 changed files with 33 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

33
BUGS
View file

@ -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
>
> (#<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]