<div><div><br><div class="gmail_quote">On Fri, Jul 10, 2009 at 5:06 AM, Changying Li <span dir="ltr">&lt;<a href="mailto:lchangying@gmail.com">lchangying@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;">
I&#39;m a newbie of plt scheme. If I report a non-exist bug, please forgive<br>
me.<br>
<br>
plt scheme version:<br>
[chylli@arch scmtipcode] mzscheme -v<br>
Welcome to MzScheme v4.2 [3m], Copyright (c) 2004-2009 PLT Scheme Inc.<br>
<br>
mysql.plt version:<br>
 mysql.plt      (1 2)   0.5a    jaz<br>
<br>
<br>
example code:<br>
<br>
#lang scheme<br>
(current-print void)<br>
(require (planet jaz/mysql:1))<br>
<br>
(connect &quot;localhost&quot; 3306 &quot;chylli&quot; &quot;3843054&quot; #:schema &quot;test&quot; #:set-current? #t)<br>
(define rs (query &quot;select * from user_stat&quot;))<br>
(printf &quot;~a\n&quot; (result-set-field-names rs ))<br>
(close-connection! (current-connection))<br>
<br>
<br>
expect:<br>
[chylli@arch /tmp] mzscheme test.ss<br>
#(stat_id user_id column_name column_value time)<br>
<br>
bad result:<br>
<br>
(file &quot;/home/chylli/.plt-scheme/planet/300/4.2/cache/jaz/mysql.plt/1/2/private/structs.ss&quot;) broke the contract<br>
  (-&gt;r ((f ...) (vec1 ...)) vec ... ...)<br>
 on vector-map; expected &lt;...43/vector-lib.ss:275:13&gt;, given: #&lt;procedure:field-name&gt;<br>
<br>
 === context ===<br>
/usr/lib/plt/collects/scheme/private/contract-guts.ss:220:0: raise-contract-error<br>
/usr/lib/plt/collects/srfi/43/vector-lib.ss:275:4: ...rfi/43/vector-lib.ss:275:4<br>
<br>
<br>
<br>
advice:<br>
74th line of structs.ss should be:<br>
 (vector-map (lambda (i f) (field-name f)) (result-set-fields rs)))<br>
</blockquote><div><br></div><div><br></div><div>Thanks for the bug report.  I fixed this issue and uploaded version 1.3 to planet:<div><br></div><div><a href="http://planet.plt-scheme.org/display.ss?package=mysql.plt&amp;owner=jaz">http://planet.plt-scheme.org/display.ss?package=mysql.plt&amp;owner=jaz</a></div>
<div><br></div><div>-Jon</div><div><br></div></div><div> </div></div></div></div>