cleanup "over push" is "suffix!".

[factor.git] / extra / jamshred / jamshred.factor

diff --git a/extra/jamshred/jamshred.factor b/extra/jamshred/jamshred.factor
index ce53fefcf5cb49e1e59898dece7d724bf61cd8dc..fc4457980d0fc499f64d69067d2478dc7d425021 100644 (file)
--- a/extra/jamshred/jamshred.factor
+++ b/extra/jamshred/jamshred.factor
@@ -26,7 +26,7 @@ M: jamshred-gadget draw-gadget* ( gadget -- )
     ] [
         [ jamshred>> jamshred-update ]
         [ relayout-1 ]
-        [ 100 milliseconds sleep jamshred-loop ] tri 
+        [ 100 milliseconds sleep jamshred-loop ] tri
     ] if ;
 
 M: jamshred-gadget graft* ( gadget -- )
@@ -57,7 +57,7 @@ M: jamshred-gadget ungraft* ( gadget -- )
 : handle-mouse-motion ( jamshred-gadget -- )
     hand-loc get [
         over last-hand-loc>> [
-            v- (handle-mouse-motion) 
+            v- (handle-mouse-motion)
         ] [ 2drop ] if* 
     ] 2keep >>last-hand-loc drop ;