> 
> diff --git a/src/algebra/list.spad b/src/algebra/list.spad
> index 564ed16..6b73a97 100644
> --- a/src/algebra/list.spad
> +++ b/src/algebra/list.spad
> @@ -294,6 +294,12 @@
>              if not member?(l11, l2) then lu := concat(l11, lu)
>              l1 := rest l1
>            lu
> +      map!(f, l) ==
> +          y := l
> +          while not empty? l repeat
> +              setfirst!(l, f first l)
> +              l := rest l
> +          y
> 
>        if S has ConvertibleTo InputForm then
>          convert(x : %) : InputForm ==

You probably can gain similar speedup by writing

     if % is List(S) then
         ....
     else
         ....

using the same definition in both cases.  Sometimes Spad
compiler is acting strange so you would have to test
this to know.

-- 
                              Waldek Hebisch

-- 
You received this message because you are subscribed to the Google Groups 
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.

Reply via email to