USING: prettyprint io.streams.c dlists debugger ; : timer-dispatch ( source callback user_data -- ? ) 3drop self name>> ">" prepend show sleep-time dup [ 1,000,000 /i ] [ f ] if* unparse show run-queue [ dup array? [ second ] when name>> show ] dlist-each [ 1,000,000,000 ] unless* nano-count + next-fire-time set-global yield t ;