<p dir="ltr">Credit for this discovery goes to Jens -- I just wrote the email.</p>
<p dir="ltr">Sam</p>
<div class="gmail_quote">On Jul 10, 2014 2:36 AM, "Matthew Flatt" <<a href="mailto:mflatt@cs.utah.edu">mflatt@cs.utah.edu</a>> wrote:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
I've pushed a repair. To double-check it, change 1140 to something like<br>
1340, since the table of primitives changed as part of the repair.<br>
<br>
Thanks for the report!<br>
<br>
At Wed, 9 Jul 2014 09:39:50 -0400, Sam Tobin-Hochstadt wrote:<br>
> The following exchange with rudybot, which is running the programs in<br>
> a sandbox, demonstrates the issue:<br>
><br>
> 09:35 <samth> rudybot: eval (let () (local-require compiler/zo-marshal<br>
> compiler/zo-structs racket/fasl) (fasl->s-exp (zo-marshal<br>
> (compilation-top 3 (prefix 0 '() '()) (let-void 1 #t (install-value 1<br>
> 0 #t (primval 1140) (localref #t 0 #f #f #f )))))))<br>
> 09:35 <rudybot> samth: ; Value: #<procedure:unsafe-fx+><br>
> 09:36 <samth> rudybot: eval ((let () (local-require<br>
> compiler/zo-marshal compiler/zo-structs racket/fasl) (fasl->s-exp<br>
> (zo-marshal (compilation-top 3 (prefix 0 '() '()) (let-void 1 #t<br>
> (install-value 1 0 #t (primval 1140) (localref #t 0 #f #f #f )))))))<br>
> vector-ref vector-ref)<br>
> 09:36 <rudybot> samth: ; Value: 32681168<br>
><br>
> The relevant program is:<br>
><br>
> (let ()<br>
>   (local-require compiler/zo-marshal compiler/zo-structs racket/fasl)<br>
>   (fasl->s-exp (zo-marshal<br>
>                       (compilation-top 3<br>
>                          (prefix 0 '() '())<br>
>                          (let-void 1 #t (install-value 1 0 #t (primval<br>
> 1140) (localref #t 0 #f #f #f )))))))<br>
><br>
> Sam<br>
> _________________________<br>
>   Racket Developers list:<br>
>   <a href="http://lists.racket-lang.org/dev" target="_blank">http://lists.racket-lang.org/dev</a><br>
</blockquote></div>