Hi all - <br><br>it seems that prop:evt and prop:procedure do not work well together - when prop:procedure is specified the struct will no longer be an event.  See the code below for example. <br><br>This is in v4.2.3.  Thanks,<br>
<br>yc<br><br>(define-struct s1 (evt) #:property prop:evt 0)<br><br>(define-struct s2 (evt) #:property prop:evt 0 <br>  #:property prop:procedure (lambda ($s) 1))<br><br>&gt; (define a1 (make-s1 (make-channel)))<br>&gt; (evt? a1)<br>
#t<br>&gt; (define a2 (make-s2 (make-channel)))<br>&gt; (evt? a2)<br>#f<br><br>