<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><br><div><div>On Dec 4, 2012, at 8:08 PM, Carl Eastlund wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; font-family: 'Lucida Grande'; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; ">The following program works just fine:<br><br>#lang racket<br>(define-syntax (foo stx) #`(quote-syntax #,stx))<br>(list foo)</span></blockquote></div><br><div><div>#lang racket</div><div>(define-syntax (foo stx) #'7)</div><div>(list foo)</div></div><div><br></div><div>Hmph. </div></body></html>