<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On Fri, Feb 8, 2013 at 10:56 AM, Jens Axel Søgaard <span dir="ltr">&lt;<a href="mailto:jensaxel@soegaard.net" target="_blank">jensaxel@soegaard.net</a>&gt;</span> wrote: <br>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
Try<br>
           [xs  (if (list? xs) xs (sequence-&gt;list xs))])<br>
and see what the new timings are.<br></blockquote><div><br></div><div>Perfect! I&#39;m glad it was so simple.<br></div><div><br></div><div>old mean:<br>cpu time: 3621 real time: 3621 gc time: 2613<br>494936207/10000000<br>

<br>new mean:<br></div></div>cpu time: 564 real time: 563 gc time: 0<br>494936207/10000000<br><br>my-mean:<br>cpu time: 512 real time: 515 gc time: 132<br>494936207/10000000<br><br></div><div class="gmail_extra">Had to explicitely cast xs to a list of reals:<br>

(cast (if (list? xs) xs (sequence-&gt;list xs))<br>      (Listof Real))<br><br></div><div class="gmail_extra">But shouldn&#39;t this patch be applied directly to sequence-&gt;list instead?<br><br></div><div class="gmail_extra">

Laurent<br></div></div>