--- Begin Message ---
Subject: |
curious match bug (?) |
Date: |
Wed, 21 Sep 2011 05:34:36 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.3 (gnu/linux) |
Hi,
Try this:
(use-modules (language tree-il) (ice-9 match))
(define foo (parse-tree-il '(let-values (apply (lambda () (lambda-case ((()
#f #f #f () ()) (apply (primitive values) (const 1) (const 2)))))) (lambda-case
(((a b) #f #f #f () (#{a 134390}# #{b 134391}#)) (apply (primitive list)
(lexical a #{a 134390}#) (lexical b #{b 134391}#)))))))
(match foo
(($ <let-values> src exp
($ <lambda-case> src2 req #f #f #f () gensyms body #f))
#t)
(_
#f))
=> #t
(match foo
(($ <let-values> src foo ;; <- rename "exp" to "foo"
($ <lambda-case> src2 req #f #f #f () gensyms body #f))
#t)
(_
#f))
=> #f
I tried to reduce this case a bit, but didn't succeed directly, and I
need to move on. But what is the deal here?
Andy
--
http://wingolog.org/
--- End Message ---
--- Begin Message ---
Subject: |
Re: bug#9567: `match' bug ? |
Date: |
Sun, 16 Oct 2011 18:38:52 +0200 |
User-agent: |
Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.90 (gnu/linux) |
Hi Alex,
Alex Shinn <address@hidden> skribis:
> 2011/10/15 Ludovic Courtès <address@hidden>:
>>
>> I’m trying to update Guile’s copy from Chibi but changeset
>> 876:528cdab3f818 in the default branch doesn’t seem to contain the fix.
>>
>> What am I missing?
>
> "hg export 851" will show you the changes, including
> the new test case. Does it not work in Guile?
Yes.
> On the off chance you're unfamiliar with mercurial,
> did you remember to "hg update" after fetching the
> changes?
Oh indeed, I had run ‘hg pull’ (I think) but not ‘hg update’.
Thanks!
Ludo’.
--- End Message ---