<div dir="ltr">What is the "custom" 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"><<a href="mailto:olopierpa@gmail.com" target="_blank">olopierpa@gmail.com</a>></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'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't happen.<br>
<br>
<br>
2013/1/30, Robby Findler <<a href="mailto:robby@eecs.northwestern.edu">robby@eecs.northwestern.edu</a>>:<br>
<div class="HOEnZb"><div class="h5">> I don't see that with this program:<br>
><br>
> #lang racket<br>
><br>
> (define (integer->roman n)<br>
> (cond ((not (integer? n))<br>
> (raise-argument-error 'integer->roman "integer?" n))<br>
> ((positive? n)<br>
> (apply string-append n))<br>
> ((negative? n)<br>
> (apply string-append "NEGATIVVS " 1))<br>
> (else<br>
> "NVLLA")))<br>
><br>
> Welcome to DrRacket, version 5.3.2.3--2013-01-29(32529d89/d) [3m].<br>
> Language: racket; memory limit: 128 MB.<br>
>> (integer->roman 3.3)<br>
> . . integer->roman: contract violation<br>
> expected: integer?<br>
> given: 3.3<br>
>> (integer->roman 3.3)<br>
> . . integer->roman: contract violation<br>
> expected: integer?<br>
> given: 3.3<br>
>><br>
><br>
><br>
> On Tue, Jan 29, 2013 at 4:33 PM, Pierpaolo Bernardi<br>
> <<a href="mailto:olopierpa@gmail.com">olopierpa@gmail.com</a>>wrote:<br>
><br>
>> If I use raise-argument-error in my functions, like this:<br>
>><br>
>> (define (integer->roman n)<br>
>> (cond ((not (integer? n))<br>
>> (raise-argument-error 'integer->roman "integer?" n))<br>
>> ((positive? n)<br>
>> (apply string-append (positive-integer->roman n)))<br>
>> ((negative? n)<br>
>> (apply string-append "NEGATIVVS " (positive-integer->roman (-<br>
>> n))))<br>
>> (else<br>
>> "NVLLA")))<br>
>><br>
>> I get errors like this:<br>
>><br>
>> Welcome to DrRacket, version 5.3.2.2--2013-01-26(88404f3/a) [3m].<br>
>> Language: racket [custom].<br>
>> > (integer->roman 3.3)<br>
>> integer->roman: contract violation<br>
>> expected: integer?<br>
>> given: 3.3<br>
>> > (integer->roman 3.3)<br>
>> . . C:\Program<br>
>> Files\Racket-Full-5.3.2.2\collects\racket\private\more-scheme.rkt:263:2:<br>
>> integer->roman: contract violation<br>
>> expected: integer?<br>
>> given: 3.3<br>
>><br>
>> That is, from the second time on I get the extraneous prefix. Is this<br>
>> expected?<br>
>><br>
>> P.<br>
>><br>
>><br>
>> _________________________<br>
>> Racket Developers list:<br>
>> <a href="http://lists.racket-lang.org/dev" target="_blank">http://lists.racket-lang.org/dev</a><br>
>><br>
>><br>
><br>
<br>
</div></div><div class="HOEnZb"><div class="h5">--<br>
Inviato dal mio dispositivo mobile<br>
</div></div></blockquote></div><br></div>