<div dir="ltr">Would let* mostly achieve this?<br><br><span style="font-family:courier new,monospace">(define (get-x-spot char-width)<br>  (let* ([dc (and char-width (get-dc))]<br>         [style (and dc (or (send (get-style-list) find-named-style &quot;Standard&quot;)<br>

                            (send (get-style-list) find-named-style &quot;Basic&quot;)))]<br>         [fnt (and style (send style get-font))])<br>    (when fnt<br>      (define-values (xw _1 _2 _3) (send dc get-text-extent &quot;x&quot; fnt))<br>

      (+ left-padding (* xw char-width)))))</span><br></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Tue, Jun 11, 2013 at 12:49 PM, Laurent <span dir="ltr">&lt;<a href="mailto:laurent.orseau@gmail.com" target="_blank">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 dir="ltr"><div><div><div><div><div><div><div>When I see what Robby is forced to write when following the Style:<br>

<a href="https://github.com/plt/racket/commit/09d636c54573522449a6591c805b38f72b6f7da8#L4R963" target="_blank">https://github.com/plt/racket/commit/09d636c54573522449a6591c805b38f72b6f7da8#L4R963</a><br>

</div><br>I cannot help but think that something is wrong somewhere (it may not be the Style, and in case it wasn&#39;t clear I&#39;m certainly not criticizing Robby&#39;s code).<br></div><div></div>Using `let&#39; and `and&#39; instead, although<span style="font-family:courier new,monospace"><span style="font-family:arial,helvetica,sans-serif"> being a bit better since it avoids all the [else #f], is not that big an improvement:</span><br>



<br>(define (get-x-spot char-width)<br>  (and<br>   char-width <br>   (let ([dc (get-dc)])<br>     (and<br>      dc<br>      (let ([style (or (send (get-style-list) find-named-style &quot;Standard&quot;)<br>                       (send (get-style-list) find-named-style &quot;Basic&quot;))])<br>



        (and<br>         style<br>         (let*-values ([(fnt) (send style get-font)]<br>                       [(xw _1 _2 _3) (send dc get-text-extent &quot;x&quot; fnt)])<br>           (+ left-padding (* xw char-width)))))))))</span><br>



<br><br></div>Actually I think here the right thing to do might be to allow for internal definitions inside `and&#39;:<br><br><span style="font-family:courier new,monospace">(define (get-x-spot char-width)<br>  (and char-width<br>



       (define dc (get-dc))<br>       dc<br>       (define style (or (send (get-style-list) find-named-style &quot;Standard&quot;)<br>                         (send (get-style-list) find-named-style &quot;Basic&quot;)))<br>



       style<br>       (define fnt (send style get-font))<br>       (define-values (xw _1 _2 _3) (send dc get-text-extent &quot;x&quot; fnt))<br>       (+ left-padding (* xw char-width))))<br></span><br><br></div>Isn&#39;t it *much* more readable? (shorter, avoid rightward drift, less parens, vertical alignment)<br>



<br></div><div>Since it&#39;s not the first time I find the need for such internal definitions in `and&#39;, maybe this is something to consider for future addition to Racket? Or have some people already identified some problems with this idea?<br>



</div><div><br></div>I&#39;ve played a bit with it if you want to try by your own:<br><a href="https://gist.github.com/Metaxal/5758394" target="_blank">https://gist.github.com/Metaxal/5758394</a><br><br></div>(not sure I got it all good with syntax-parse though)<span class="HOEnZb"><font color="#888888"><br>



<br></font></span></div><span class="HOEnZb"><font color="#888888">Laurent<br><div><div><br></div></div></font></span></div>
<br>____________________<br>
  Racket Users list:<br>
  <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
<br></blockquote></div><br></div>