Minor formatting fix in Factory

diff --git a/contrib/factory/factory.factor b/contrib/factory/factory.factor
index b1fb5045112386c94da3f8635b78faa19964c43b..b6c48d2ebba457ec9feb8b8b1b03f80b3b99bed2 100644 (file)
--- a/contrib/factory/factory.factor
+++ b/contrib/factory/factory.factor
@@ -558,15 +558,15 @@ SYMBOL: window-list
 : not-transient? ( frame -- ? ) wm-frame-child get-transient-for-hint% not ;
 
 : add-window-to-list ( window-list frame -- window-list )
-  dup                                  ! window-list frame frame
-  wm-frame-child                       ! window-list frame child
-  fetch-name%                          ! window-list frame name-or-f
-  dup                                  ! window-list frame name-or-f name-or-f
+  dup                          ! window-list frame frame
+  wm-frame-child               ! window-list frame child
+  fetch-name%                  ! window-list frame name-or-f
+  dup                          ! window-list frame name-or-f name-or-f
   [ ] [ drop "*untitled*" ] if ! window-list frame name
-  swap                                 ! window-list name frame
-  [ map-window% ]                      ! window-list name frame [ map-window% ]
-  cons                                 ! window-list name action
-  pick                                 ! window-list name action window-list
+  swap                         ! window-list name frame
+  [ map-window% ]              ! window-list name frame [ map-window% ]
+  cons                         ! window-list name action
+  pick                         ! window-list name action window-list
   add-popup-menu-item ;
 
 : refresh-window-list ( window-list -- )