Ludovic Courtès writes:
> Tomas Volf <~@wolfsden.cz> skribis:
>
>> (lambda (expr)
>> (let* ((v expr)
>> (failure
>>(lambda ()
>> ((@@ (ice-9 match) throw)
>> 'match-error
>> "match"
>> "no matching pattern"
>>
Tomas Volf <~@wolfsden.cz> skribis:
> (lambda (expr)
> (let* ((v expr)
> (failure
>(lambda ()
> ((@@ (ice-9 match) throw)
> 'match-error
> "match"
> "no matching pattern"
> v)
> #f)))
> #f)
Hi,
--8<---cut here---start->8---
(use-modules (ice-9 match))
(match-lambda (_ #f))
--8<---cut here---end--->8---
This source code leads to a warning when compiled:
--8<---cut here---start--
