How do I set baud/parity/stop in Racket for a serial port in Windows/Linux/Mac. Eg for &quot;\\.\COM4&quot;<div><br></div><div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">(new button% [parent ButtonPanel] [label &quot;Test USB&quot;]</font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">     [callback  </font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">      (lambda (e b)</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">        (let-values </font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">            ([(in-com out-com)</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">              (open-input-output-file </font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">               &quot;\\\\.\\COM4&quot; #:mode &#39;binary #:exists &#39;append) ])</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">          (displayln (list &quot;open-input-output-file&quot;  in-com out-com))</font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">          (displayln (write-string &quot; cold \\r &quot; out-com))</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">          ))])</font></div>

<div><div>The above seems to work. It blows up iff COM4 is absent. It prints</div><div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">(open-input-output-file #&lt;input-port:\\.\COM4&gt; #&lt;output-port:\\.\COM4&gt;)</font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">9</font></div></div></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><span class="Apple-style-span" style="font-family: arial; ">iff COM4 is present. But receiving device apparently gets nothing.</span></font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><span class="Apple-style-span" style="font-family: arial; "><br></span></font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><span class="Apple-style-span" style="font-family: arial; ">Thanks,</span></font></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><span class="Apple-style-span" style="font-family: arial; ">Steve</span></font></div><div style="text-align:center"><span style="font-family:&#39;times new roman&#39;, serif"><font color="#C0C0C0">--------------------------------</font></span></div>

<font face="&#39;times new roman&#39;, serif"><div style="text-align:center">Steven Zins </div><div style="text-align:center">575-621-0950</div></font><div style="text-align:center"><a href="http://LEDybug.com" target="_blank"><font face="&#39;times new roman&#39;, serif">LEDybug.com</font></a></div>

<font face="&#39;times new roman&#39;, serif"><div style="text-align:center">Las Cruces, NM USA</div><div style="text-align:center"><font color="#C0C0C0">--------------------------------</font></div></font><br>
</div>