timers: simplify stop-timer.

diff --git a/basis/timers/timers.factor b/basis/timers/timers.factor
index 925fc246a7b01fba39b4c90ec2fd75cb04aee720..029f640616c19bb149bb3de9664a894a9123787c 100644 (file)
--- a/basis/timers/timers.factor
+++ b/basis/timers/timers.factor
@@ -88,10 +88,8 @@ PRIVATE>
 
 : stop-timer ( timer -- )
     dup quotation-running?>> [
-        f >>thread drop
-    ] [
-        [ [ interrupt ] when* f ] change-thread drop
-    ] if ;
+        dup thread>> [ interrupt ] when*
+    ] unless f >>thread drop ;
 
 : restart-timer ( timer -- )
     dup quotation-running?>> [