Great - thanks! <br><br>yc<br><br><div class="gmail_quote">On Sun, Jan 24, 2010 at 7:30 AM, Matthew Flatt <span dir="ltr">&lt;<a href="mailto:mflatt@cs.utah.edu">mflatt@cs.utah.edu</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
This is fixed in SVN, and I think the fix will be included in the<br>
upcoming 4.2.4 release.<br>
<div><div></div><div class="h5"><br>
At Thu, 21 Jan 2010 09:55:08 -0800, YC wrote:<br>
&gt; Hi all -<br>
&gt;<br>
&gt; it seems that prop:evt and prop:procedure do not work well together - when<br>
&gt; prop:procedure is specified the struct will no longer be an event.  See the<br>
&gt; code below for example.<br>
&gt;<br>
&gt; This is in v4.2.3.  Thanks,<br>
&gt;<br>
&gt; yc<br>
&gt;<br>
&gt; (define-struct s1 (evt) #:property prop:evt 0)<br>
&gt;<br>
&gt; (define-struct s2 (evt) #:property prop:evt 0<br>
&gt;   #:property prop:procedure (lambda ($s) 1))<br>
&gt;<br>
&gt; &gt; (define a1 (make-s1 (make-channel)))<br>
&gt; &gt; (evt? a1)<br>
&gt; #t<br>
&gt; &gt; (define a2 (make-s2 (make-channel)))<br>
&gt; &gt; (evt? a2)<br>
&gt; #f<br>
</div></div>&gt; _________________________________________________<br>
&gt;   For list-related administrative tasks:<br>
&gt;   <a href="http://list.cs.brown.edu/mailman/listinfo/plt-scheme" target="_blank">http://list.cs.brown.edu/mailman/listinfo/plt-scheme</a><br>
</blockquote></div><br>