Revert "sequences: swap stack arguments for start/start*/subseq?."

[factor.git] / basis / game / input / iokit / iokit.factor

diff --git a/basis/game/input/iokit/iokit.factor b/basis/game/input/iokit/iokit.factor
index a89c925989d42ca58111ed809301082f6817dd12..9eb30d7467021248b36b659afb35f049240a628c 100644 (file)
--- a/basis/game/input/iokit/iokit.factor
+++ b/basis/game/input/iokit/iokit.factor
@@ -338,7 +338,7 @@ M: iokit-game-input-backend get-controllers ( -- sequence )
     +controller-states+ get-global keys [ controller boa ] map ;
 
 : ?join ( pre post sep -- string )
-    2over swap start [ swap 2nip ] [ [ 2array ] dip join ] if ;
+    2over start [ swap 2nip ] [ [ 2array ] dip join ] if ;
 
 M: iokit-game-input-backend product-string ( controller -- string )
     handle>>