<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>I have some MySQL connectivity code from David Van Horn that has been working great. After my SVN update this morning, the mysqlclient.ss extension no longer builds.</div><div><br class="webkit-block-placeholder"></div><div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">mzc -v --save-temps --debug ++ccf --save-temps --auto-dir --extension ++ldf /opt/local/lib/mysql5/mysql/libmysqlclient.dylib ++cppf -I/opt/local/include/mysql5/mysql ++ccf -I/opt/local/include/mysql5/mysql mysqlclient.ss</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">mzc v3.99.0.2 [3m], Copyright (c) 2004-2007 PLT Scheme Inc.</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">Warning: compilation to C is usually less effective</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">for performance than relying on the bytecode JIT compiler.</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">"mysqlclient.ss": </font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080"> Reading... expanding...</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080"> [cpu: 140ms, real: 185ms, gc: 46ms]</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080"> extracting core expressions</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#FF0000">c-syntax.ss:123:10: #%variable-reference: identifier cannot refer to an imported binding at: values in: (#%variable-reference values)</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080"><br></font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080"> === context ===</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">/usr/local/plt/collects/compiler/private/driver.ss:697:25: core-thunk</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">/usr/local/plt/collects/compiler/private/driver.ss:507:8: verbose-time</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#808080">/usr/local/plt/collects/compiler/private/driver.ss:563:8: s:compile</font></font></div><div><br class="webkit-block-placeholder"></div><div>Here is a snippet from David's c-syntax.ss:</div><br></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040">(module c-syntax mzscheme</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (require (lib "cffi.ss" "compiler") ;; c-lambda, c-declare syntax.</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> "c-syntax-transformer.ss")</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> ; ...</font></font></div><div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (define-syntax (c-enum stx)</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (syntax-case stx ()</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> ((_ enum-name)</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (identifier? (syntax enum-name))</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (with-syntax ([str (format "___result = ~a;"</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (scheme-symbol->c-enum-string</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (syntax-e (syntax enum-name))))])</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (syntax</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> ((c-lambda () int str)))))))</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> ; ...</font></font></div></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (define-syntax define-c-enums</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (syntax-rules ()</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> ((_ i ...)</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (define-values (i ...)</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> (values (c-enum i) ...))))) </font><font class="Apple-style-span" color="#FF0000">;; <== this is line 123</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> ; ...</font></font></div><div><font class="Apple-style-span" face="Courier"><font class="Apple-style-span" color="#008040"> )</font></font></div><div><br class="webkit-block-placeholder"></div><div>How do I fix this, or how should I approach fixing this?</div><div><br class="webkit-block-placeholder"></div><div>Geoffrey</div><div apple-content-edited="true"><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><div style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">--</font></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Geoffrey S. Knauth | <a href="http://knauth.org/gsk">http://knauth.org/gsk</a></font></p><br class="Apple-interchange-newline"></span></span></div></span> </div><br></body></html>