<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">
I'm not having a problem with the "More" tutorial per se, but in trying to adapt it, I've run into a problem. I'm sure this is user error on my part, but I've modified the early examples to read s-expressions and write them back. Unfortunately, my test driver blocks when trying to read a response back from the server. Testing with telnet works fine.<div><br></div><div>Here is the test driver</div><div><br></div><div><div>;;A simple test driver</div><div>(define (test-it port-no)</div><div> (begin</div><div> (printf "Starting server on port ~a~n" port-no)</div><div> (let ([stop (serve port-no test-handler)])</div><div> (printf "Connecting to server on port ~a~n" port-no)</div><div> (let-values ([(in out) (tcp-connect "localhost" port-no)])</div><div> (define msg '(a b c))</div><div> (printf "Sending message ~a~n" msg)</div><div> (write msg out)</div><div> (printf "Reading response...~n")</div><div> (let ([resp (read in)])</div><div> (printf "Response is ~a~n" msg))</div><div> (printf "Stopping server."))</div><div> (stop))))</div><br><div> <span class="Apple-style-span" style="border-collapse: separate; 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; orphans: 2; text-align: 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: 0; "><span class="Apple-style-span" style="border-collapse: separate; 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; orphans: 2; 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; "><div><br class="Apple-interchange-newline"><br class="khtml-block-placeholder"></div><div>"Oh would that my mind could let fall its dead ideas, as the tree does its withered leaves."</div><div>--André Gide</div><div><br></div><div><div><a href="http://www.gwoodhouse.com">http://www.gwoodhouse.com</a></div><div><a href="http://GregWoodhouse.ImageKind.com">http://GregWoodhouse.ImageKind.com</a></div><div><br></div></div><br class="Apple-interchange-newline"></span><br class="Apple-interchange-newline"></span> </div><br></div></body></html>