Hello,<br><br><div class="gmail_quote">On Sat, Feb 11, 2012 at 14:55, Laurent <span dir="ltr">&lt;<a href="mailto:laurent.orseau@gmail.com">laurent.orseau@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

...<div><br></div><div>(define (bar [arg2 (get-default-value foo arg2)])</div><div>  (foo 5 arg2))</div><div><br><br></div></blockquote><div><br>Maybe someone will have a better idea (or a brighter implementation), but if not, here&#39;s my contribution:<br>

<br>#lang racket<br>(require rackunit)<br><br>(define (foo arg1 [arg2 10])<br>  (+ arg1 arg2))<br><br>(define (bar [arg2 #f])<br>  (let ([arg1 5])<br>    (cond<br>      [arg2 (foo arg1 arg2)]<br>      [else (foo arg1)])))<br>

<br>(check-= (bar 2) 7 0)<br>(check-= (bar) 15 0)<br><br><br><br>;;;;;;;;;;;;;<br><br>I think what Robby wrote seconds ago is compatible with that...<br><br><br>[]&#39;s<br><br>Rodolfo<br></div></div><br>