On 2-Apr-07, at 8:48 AM, Anton Rolls wrote:

> : stream-callback ( -- object ) "char" { "void*" "void*" "int"  
> "void*" }
> "stdcall" [
>     "callbacked" .
>     ! drop "len: " write . 2drop
>     1  ! return TRUE to continue the stream
>   ] alien-callback ;

This doesn't print anything; try  "callbacked" print flush

Slava


-------------------------------------------------------------------------
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
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk

Reply via email to