<div dir="ltr">What is the &quot;custom&quot; part of the language settings you have on?<div><br>Robby</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Tue, Jan 29, 2013 at 7:47 PM, Pierpaolo Bernardi <span dir="ltr">&lt;<a href="mailto:olopierpa@gmail.com" target="_blank">olopierpa@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">Update 2: it does not depend on buffer content.<br>
<br>
I have 9 tab open in this DrRacket. In 5 of them happen the strange<br>
message, in 4 of them it doesn&#39;t happen.<br>
<br>
I tried closing one in which it happened and then reopening the same<br>
file in a new tab, and in the new tab it doesn&#39;t happen.<br>
<br>
<br>
2013/1/30, Robby Findler &lt;<a href="mailto:robby@eecs.northwestern.edu">robby@eecs.northwestern.edu</a>&gt;:<br>
<div class="HOEnZb"><div class="h5">&gt; I don&#39;t see that with this program:<br>
&gt;<br>
&gt; #lang racket<br>
&gt;<br>
&gt; (define (integer-&gt;roman n)<br>
&gt;   (cond ((not (integer? n))<br>
&gt;          (raise-argument-error &#39;integer-&gt;roman &quot;integer?&quot; n))<br>
&gt;         ((positive? n)<br>
&gt;          (apply string-append n))<br>
&gt;         ((negative? n)<br>
&gt;          (apply string-append &quot;NEGATIVVS &quot; 1))<br>
&gt;         (else<br>
&gt;          &quot;NVLLA&quot;)))<br>
&gt;<br>
&gt; Welcome to DrRacket, version 5.3.2.3--2013-01-29(32529d89/d) [3m].<br>
&gt; Language: racket; memory limit: 128 MB.<br>
&gt;&gt; (integer-&gt;roman 3.3)<br>
&gt; . . integer-&gt;roman: contract violation<br>
&gt;   expected: integer?<br>
&gt;   given: 3.3<br>
&gt;&gt; (integer-&gt;roman 3.3)<br>
&gt; . . integer-&gt;roman: contract violation<br>
&gt;   expected: integer?<br>
&gt;   given: 3.3<br>
&gt;&gt;<br>
&gt;<br>
&gt;<br>
&gt; On Tue, Jan 29, 2013 at 4:33 PM, Pierpaolo Bernardi<br>
&gt; &lt;<a href="mailto:olopierpa@gmail.com">olopierpa@gmail.com</a>&gt;wrote:<br>
&gt;<br>
&gt;&gt; If I use raise-argument-error in my functions, like this:<br>
&gt;&gt;<br>
&gt;&gt; (define (integer-&gt;roman n)<br>
&gt;&gt;   (cond ((not (integer? n))<br>
&gt;&gt;          (raise-argument-error &#39;integer-&gt;roman &quot;integer?&quot; n))<br>
&gt;&gt;         ((positive? n)<br>
&gt;&gt;          (apply string-append (positive-integer-&gt;roman n)))<br>
&gt;&gt;         ((negative? n)<br>
&gt;&gt;          (apply string-append &quot;NEGATIVVS &quot; (positive-integer-&gt;roman (-<br>
&gt;&gt; n))))<br>
&gt;&gt;         (else<br>
&gt;&gt;          &quot;NVLLA&quot;)))<br>
&gt;&gt;<br>
&gt;&gt; I get errors like this:<br>
&gt;&gt;<br>
&gt;&gt; Welcome to DrRacket, version 5.3.2.2--2013-01-26(88404f3/a) [3m].<br>
&gt;&gt; Language: racket [custom].<br>
&gt;&gt; &gt; (integer-&gt;roman 3.3)<br>
&gt;&gt; integer-&gt;roman: contract violation<br>
&gt;&gt;   expected: integer?<br>
&gt;&gt;   given: 3.3<br>
&gt;&gt; &gt; (integer-&gt;roman 3.3)<br>
&gt;&gt; . . C:\Program<br>
&gt;&gt; Files\Racket-Full-5.3.2.2\collects\racket\private\more-scheme.rkt:263:2:<br>
&gt;&gt; integer-&gt;roman: contract violation<br>
&gt;&gt;   expected: integer?<br>
&gt;&gt;   given: 3.3<br>
&gt;&gt;<br>
&gt;&gt; That is, from the second time on I get the extraneous prefix.  Is this<br>
&gt;&gt; expected?<br>
&gt;&gt;<br>
&gt;&gt; P.<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; _________________________<br>
&gt;&gt;   Racket Developers list:<br>
&gt;&gt;   <a href="http://lists.racket-lang.org/dev" target="_blank">http://lists.racket-lang.org/dev</a><br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;<br>
<br>
</div></div><div class="HOEnZb"><div class="h5">--<br>
Inviato dal mio dispositivo mobile<br>
</div></div></blockquote></div><br></div>