Stub cancellation on the JVM.

Raku · Apr 21, 2014 · c8a41cf · c8a41cf
1 parent 518ff26
commit c8a41cf
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -4414,7 +4414,11 @@ public static SixModelObject timer(SixModelObject queue, SixModelObject schedule
         else
             tc.gc.timer.schedule(tt, timeout);
         /* XXX TODO: cancellation handle. */
-        return null;
+        return handle_type;
+    }
+    public static SixModelObject cancel(SixModelObject handle, ThreadContext tc) {
+        /* XXX TODO: support cancellation. */
+        return handle;
     }
 
     /* Exception related. */