Re: [Chicken-users] pattern matching

[F. Wittenberger]

Oij!

Do I have a different "matchable"?  Where should I shop for the real
one?  I've got mine manually from the eggs page a week ago (BTW: it
includes 2 matchable.scm in the .egg).

Note that I currently do not use chicken-setup and the repository
structure, but copied the files into my source tree for better version
control.  But I would not expect any problem from just including/loading
matchable like any other file.

Am Mittwoch, den 08.10.2008, 09:25 +0200 schrieb felix winkelmann:
> On Tue, Oct 7, 2008 at 12:21 PM, Jörg F. Wittenberger
> <address@hidden> wrote:
> >
> > Uhm, try:
> >
> > (print (match '(lambda (a b) (+ a b))
> >              ((_ llist body ...) #t)))
> >
> > Ellipsis do somehow not match at all.
> 
> #;1> (use matchable)
> ; loading /home/fwinkel/todo/hygienic/lib/chicken/4/matchable.import.so ...
> ; loading /home/fwinkel/todo/hygienic/lib/chicken/4/scheme.import.so ...
> ; loading /home/fwinkel/todo/hygienic/lib/chicken/4/chicken.import.so ...
> ; loading /home/fwinkel/todo/hygienic/lib/chicken/4/matchable.so ...
> #;2> (print (match '(lambda (a b) (+ a b))
>               ((_ llist body ...) #t)))
> #t
> #;3>

#;1> (load "matchable.scm")
; loading matchable.scm ...
#;2> (print (match '(lambda (a b) (+ a b))
              ((_ llist body ...) #t)))
Error: (match) no matching pattern

        Call history:

        <eval>          (car5534 x5505)
        <eval>          (cdr5536 x5505)
        <eval>          (pair?5644 x5535)
        <eval>          (car5647 x5535)
        <eval>          (cdr5649 x5535)
        <eval>          (pair?5753 x5648)
        <eval>          (failure5475)
        <eval>          [failure5475] (error5851 (quote5852 match5853) "no 
matching
pattern")       <--
#;2>