format-using: inline a word

Replace "bi@ =" with "same?" as suggested by lint.

diff --git a/extra/format-using/format-using.factor b/extra/format-using/format-using.factor
index b7af761f950e215394d7969ef2b468d2ee0c1862..8bbdec87e59f3add0abd05343cbc7f94567a076f 100644 (file)
--- a/extra/format-using/format-using.factor
+++ b/extra/format-using/format-using.factor
@@ -12,11 +12,8 @@ IN: format-using
 : subsystem ( str -- str' )
     dup [ CHAR: . = ] find [ head ] [ drop ] if ;
 
-: subsystem= ( str1 str2 -- ? )
-    [ subsystem ] bi@ = ;
-
 : subsystem-clusters ( seq -- seq' )
-    [ subsystem= ] monotonic-split ;
+    [ [ subsystem ] same? ] monotonic-split ;
 
 : joined-length ( seq -- n )
     [ length ] keep [ length ] map-sum + ;