factor/vm/run.cpp

22 lines
255 B
C++
Raw Normal View History

2009-05-02 05:04:19 -04:00
#include "master.hpp"
2009-05-04 02:46:13 -04:00
namespace factor
{
void factor_vm::primitive_exit()
2009-05-02 05:04:19 -04:00
{
exit(to_fixnum(dpop()));
}
void factor_vm::primitive_micros()
2009-05-02 05:04:19 -04:00
{
box_unsigned_8(current_micros());
}
void factor_vm::primitive_sleep()
2009-05-02 05:04:19 -04:00
{
sleep_micros(to_cell(dpop()));
}
2009-05-04 02:46:13 -04:00
}