I found current read-delimited will return the whole string if delimiter can&#39;t be found. It&#39;s inconvenient for some cases.<div>I expect it return #f for this.</div><div>And Andy said it maybe because some back compatible reasons. So I decide to add an option to do this job. </div>
<div>If we use the original version, we must do this:</div><div>-----------------------------------cut-----------------------------------------------------</div><div>(let ((token (call-with-input-string &quot;asdf&quot; (lambda (port) (read-delimited &quot;@&quot; port &#39;split)))))</div>
<div>    (if (eof-object? (cdr token))</div><div>         &quot;&quot;</div><div>         (car token)))</div><div>-----------------------------------end----------------------------------------------------</div><div>It&#39;s rather ugly.</div>
<div><br></div><div>Now it&#39;s better:</div><div>-----------------------------------cut-----------------------------------------------------</div><div><div>(call-with-input-string &quot;asdf&quot; (lambda (port) (read-delimited &quot;@&quot; port &#39;fail))))</div>
</div><div>==&gt; #f</div><div>(call-with-input-string &quot;as@df&quot; (lambda (port) (read-delimited &quot;@&quot; port &#39;fail))))</div><div>==&gt; &quot;as&quot;</div><div>-----------------------------------end----------------------------------------------------</div>
<div>If delimiter exists, it works like &#39;trim mode.</div><div><br></div><div>Comments?</div><div><br></div><div>Regards.</div><div><br></div>