slots: silly formatting change.

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 6d393f125523fa235a48730db397007e950f88f0..5488f03bd662da95ed73ef42336bbcb866bae741 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -229,9 +229,7 @@ M: string make-slot
 : peel-off-class ( slot-spec array -- slot-spec array )
     dup empty? [
         dup first classoid? [
-            [ first init-slot-class ]
-            [ rest ]
-            bi
+            [ first init-slot-class ] [ rest ] bi
         ] when
     ] unless ;