Paste: what is happening here

Author: typemore
Mode: factor
Date: Mon, 16 Aug 2010 03:34:28
Plain Text |
: nehe4-update-thread ( gadget -- )
    dup quit?>> [ drop ] [
        redraw-interval sleep
        dup relayout-1
        nehe4-update-thread
    ] if ;

M: nehe4-gadget graft* ( gadget -- )
    f >>quit?
    [ nehe4-update-thread ] curry in-thread ;

New Annotation

Summary:
Author:
Mode:
Body: