6 void factor_vm::primitive_exit()
8 exit(to_fixnum(dpop()));
11 void factor_vm::primitive_system_micros()
13 box_unsigned_8(system_micros());
16 void factor_vm::primitive_nano_count()
18 u64 nanos = nano_count();
19 if(nanos < last_nano_count) critical_error("Monotonic counter decreased",0);
20 last_nano_count = nanos;
21 box_unsigned_8(nanos);
24 void factor_vm::primitive_sleep()
26 sleep_nanos(to_unsigned_8(dpop()));