Hello, Here's a version of send-message which works with objects that have delegates that have methods you want to call:
: find-method ( obj msg -- quot ) 2dup >r class method-table r> ref-hash dup [ -rot 2drop ] [ drop >r delegate r> find-method ] if ; : send-message ( obj msg -- ) dupd find-method call ; Ed ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys-and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ Factor-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/factor-talk
