factor: refactor subseq-start

[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 272a88b0660366782ca37839632854d6301d4abd..3130e9451961ff6f8befbb933fafd2912a4b9dc4 100644 (file)
--- a/basis/game/input/iokit/iokit.factor
+++ b/basis/game/input/iokit/iokit.factor
@@ -337,13 +337,13 @@ M: iokit-game-input-backend (close-game-input)
 M: iokit-game-input-backend get-controllers
     +controller-states+ get-global keys [ controller boa ] map ;
 
-: ?join ( pre post sep -- string )
-    2over subseq-start [ swap 2nip ] [ [ 2array ] dip join ] if ;
+: ?glue ( seq subseq sep -- string )
+    2over subsequence-starts [ drop nip ] [ glue ] if ;
 
 M: iokit-game-input-backend product-string
     handle>>
-    [ kIOHIDManufacturerKey device-property ]
-    [ kIOHIDProductKey      device-property ] bi " " ?join ;
+    [ kIOHIDProductKey      device-property ]
+    [ kIOHIDManufacturerKey device-property ] bi " " ?glue ;
 
 M: iokit-game-input-backend product-id
     handle>>