Re: is shapeSlur broken?

[Jan-Peter Voigt]

On 14.05.2012 12:34, David Kastrup wrote:
> Jan-Peter Voigt<address@hidden>  writes:
>
> > Hello  Harm and list,
> Could you try _not_ posting in HTML?  This mail had both a plain text as
> well as an HTML-specified part, and both rendered awfully here.  If you
> send just as plain text, chances are that you see what you are actually
> sending.
ups, sorry! It was the last thunderbird update, or whatever ...
> > \version "2.15.38"
> >
> > % predicate for a number or a list of numbers
> > #(define (number-or-list? v)
> >
> > (or (number? v)
> >
> > (and
> >
> > (list? v)
> >
> > (eval `(and ,@(map (lambda (x)`(number? ,x)) v))(interaction-environment))
> >
> > )))
> What is the crazy idea with using eval?  Why don't you use
>
> (every number? v) here?
... because I sometimes don't see the obvious ... ;-) thank you!
I sometimes like to change only the inner and sometimes also the outer 
ones, so I have a number or a pair of numbers and a predicate, that 
looks for one of them.
But I thought, it is easier to explain just one case ... still I could 
have used (every):
--snip--

(define (number-or-list? v)

(or (number? v)

(number-pair? v)

(and (list? v)
(every (lambda (x) (or (number? x)(number-pair? x))) v)

)))

--snip--

This might still be ugly, but it works for me - so its OK ;-)

Cheers, Jan-Peter