2009-05-02 05:04:19 -04:00
|
|
|
#include "master.hpp"
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
2009-09-27 14:42:18 -04:00
|
|
|
void factor_vm::primitive_exit()
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
|
|
|
exit(to_fixnum(dpop()));
|
|
|
|
}
|
|
|
|
|
2009-09-27 14:42:18 -04:00
|
|
|
void factor_vm::primitive_micros()
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
|
|
|
box_unsigned_8(current_micros());
|
|
|
|
}
|
|
|
|
|
2009-09-27 14:42:18 -04:00
|
|
|
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
|
|
|
}
|