load-scheduler 

# FIXME: without a proper sychronization mechanism for PLT, we go
# through the scheduler once every 10 ms if nothing is happening.
# This should be replaced with a pipe-based sync.
10 microsleep !

# when called from a script, it starts a task that runs the 'tick' word.
: start-tick-loop 
    0 fork tick-loop ;


# Scheme side loads XTs on the stack, we execute them.
: start-plt-loop
    0 fork
    begin 
        c-yield execute
    again ;

# no console!
: interactive ;

start-tick-loop
start-plt-loop
start-scheduler
finish