Use the event-handler for timers.

src/vm/natives.cc

 // Copyright (c) 2014, the Fletch project authors. Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE.md file.
 
 #include "src/vm/natives.h"
 
 #include <errno.h>
 #include <math.h>
 #include <stdlib.h>
 
@@ skipping 1296 matching lines @@
   ASSERT(byte_index + 4 <= backing->length());
   uint8* byte_address = backing->byte_address_for(byte_index);
   Object* object = arguments[2];
   uint32 value = object->IsSmi()
                  ? Smi::cast(object)->value()
                  : LargeInteger::cast(object)->value();
   *reinterpret_cast<uint32*>(byte_address) = value;
   return process->program()->null_object();
 }
 
+NATIVE(TimerScheduleTimeout) {
+  int64 timeout = AsForeignInt64(arguments[0]);
+  Instance* instance = Instance::cast(arguments[1]);
+  ASSERT(instance->IsPort());
+  Object* field = instance->GetInstanceField(0);
+  uword address = AsForeignWord(field);
+  Port* port = reinterpret_cast<Port*>(address);
+  process->program()->event_handler()->ScheduleTimeout(timeout, port);
+  return process->program()->null_object();
+}
+
 }  // namespace fletch