<div dir="ltr">Test case?<div><br></div><div>Robby</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Wed, Feb 6, 2013 at 5:08 PM,  <span dir="ltr">&lt;<a href="mailto:ryanc@racket-lang.org" target="_blank">ryanc@racket-lang.org</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">ryanc has updated `master&#39; from 117c81e2a6 to a85a71984d.<br>
  <a href="http://git.racket-lang.org/plt/117c81e2a6..a85a71984d" target="_blank">http://git.racket-lang.org/plt/117c81e2a6..a85a71984d</a><br>
<br>
=====[ One Commit ]=====================================================<br>
Directory summary:<br>
 100.0% collects/racket/private/<br>
<br>
~~~~~~~~~~<br>
<br>
a85a719 Ryan Culpepper &lt;<a href="mailto:ryanc@racket-lang.org">ryanc@racket-lang.org</a>&gt; 2013-02-06 17:55<br>
:<br>
| preserve lexical context, src, etc for sequence syntax expansion<br>
|<br>
| The previous version of the code replaced the implicit #%app with<br>
| the kernel #%app (ie, #%plain-app), causing sequence functions<br>
| that take keyword arguments to fail.<br>
:<br>
  M collects/racket/private/for.rkt | 3 ++-<br>
<br>
=====[ Overall Diff ]===================================================<br>
<br>
collects/racket/private/for.rkt<br>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br>
--- OLD/collects/racket/private/for.rkt<br>
+++ NEW/collects/racket/private/for.rkt<br>
@@ -118,7 +118,8 @@<br>
              (if (identifier? stx)<br>
                  (proc1)<br>
                  (datum-&gt;syntax stx<br>
-                                #`(#,(proc1) . #,(cdr (syntax-e stx)))<br>
+                                ;; Use cons, not #`(#,op #,@args), to avoid replacing implicit #%app binding<br>
+                                (cons (proc1) (cdr (syntax-e stx)))<br>
                                 stx<br>
                                 stx)))<br>
            proc1)<br>
</blockquote></div><br></div>