FUEL: In word extraction, ask for word name before stack effect.

extra/fuel/fuel.factor

@@ -177,9 +177,7 @@ PRIVATE>
 
 ! Remote connection
 
-: fuel-start-remote-listener ( port/f -- )
-    "Starting server. Connect with 'M-x connect-to-factor' in Emacs"
-    write nl flush number? [ 9000 ] unless*
+: fuel-start-server ( port -- )
     <threaded-server>
         "tty-server" >>name
         utf8 >>encoding
@@ -188,6 +186,10 @@ PRIVATE>
         f >>timeout
     start-server ;
 
+: fuel-start-remote-listener ( port/f -- )
+    "Starting server. Connect with 'M-x connect-to-factor' in Emacs"
+    write nl flush number? [ 9000 ] unless* fuel-start-server ;
+
 : fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;
 
 MAIN: fuel-start-remote-listener*

misc/fuel/fuel-refactor.el

@@ -103,10 +103,10 @@
   (let* ((code (buffer-substring begin end))
          (existing (fuel-refactor--reuse-existing code))
          (code-str (or existing (fuel--region-to-string begin end)))
+         (word (or (car existing) (read-string "New word name: ")))
          (stack-effect (or existing
                            (fuel-stack--infer-effect code-str)
-                           (read-string "Stack effect: ")))
-         (word (or (car existing) (read-string "New word name: "))))
+                           (read-string "Stack effect: "))))
     (goto-char begin)
     (delete-region begin end)
     (insert word)