extra: remove unnecessary yield.

diff --git a/extra/bubble-chamber/bubble-chamber.factor b/extra/bubble-chamber/bubble-chamber.factor
index dcbd776292489cbfabd203cc40020c1faf1482f6..f563c0a68734b69a34e95e08b66babc711f88639 100644 (file)
--- a/extra/bubble-chamber/bubble-chamber.factor
+++ b/extra/bubble-chamber/bubble-chamber.factor
@@ -316,7 +316,7 @@ TUPLE: bubble-chamber < frame-buffer
   particles collision-theta size timer ;
 
 M: bubble-chamber graft*
-    [ timer>> start-timer yield ] [ call-next-method ] bi ;
+    [ timer>> start-timer ] [ call-next-method ] bi ;
 
 M: bubble-chamber ungraft*
     [ timer>> stop-timer ] [ call-next-method ] bi ;

diff --git a/extra/lcd/lcd.factor b/extra/lcd/lcd.factor
index 2dd7c5f3344cfffed9d3f670c39123fab6e78079..3712687a9b86a7e595de34f51e48008d3b01d6b9 100644 (file)
--- a/extra/lcd/lcd.factor
+++ b/extra/lcd/lcd.factor
@@ -28,7 +28,7 @@ TUPLE: time-display < label timer ;
         f 1 seconds <timer> >>timer ;
 
 M: time-display graft*
-    [ timer>> start-timer yield ] [ call-next-method ] bi ;
+    [ timer>> start-timer ] [ call-next-method ] bi ;
 
 M: time-display ungraft*
     [ timer>> stop-timer ] [ call-next-method ] bi ;

diff --git a/extra/trails/trails.factor b/extra/trails/trails.factor
index 661b94ca46c39edb5fbb865683974f4e92c5c3fd..083c0436a30a7ead6fd1cf6c54decf8d6e5512d8 100644 (file)
--- a/extra/trails/trails.factor
+++ b/extra/trails/trails.factor
@@ -20,7 +20,7 @@ IN: trails
 TUPLE: trails-gadget < gadget points timer ;
 
 M: trails-gadget graft*
-    [ timer>> start-timer yield ] [ call-next-method ] bi ;
+    [ timer>> start-timer ] [ call-next-method ] bi ;
 
 M: trails-gadget ungraft*
     [ timer>> stop-timer ] [ call-next-method ] bi ;