Re-recognize tilde-prefixes in assignment words

src/assignment.ml

@@ -60,6 +60,9 @@ let recognize_assignment checkpoint pretoken (Word (word_str, word_cst)) =
               else
                 WordLiteral literal_leftover :: word_cst_leftover
             in
+            (* Now that we know we're in an assignment, we know there are
+               potentially more tilde prefixes to recognize. *)
+            let word_cst = TildePrefix.recognize ~in_assignment:true word_cst in
             let word = Word (word_str_leftover, word_cst) in
             let token = ASSIGNMENT_WORD (Name name, word) in
             if accepted_token checkpoint (token, pstart, pstop) <> Wrong then

src/prelexerState.ml

@@ -366,7 +366,9 @@ let return ?(with_newline=false) lexbuf (current : prelexer_state) tokens =
             | QuotingMark _ -> []
           ) (buffer current)))
       in
-      let csts = TildePrefix.recognize ~in_assignment:false csts in (* FIXME: sometimes should be true *)
+      (* At this point, we cannot say whether this will be an assignment word,
+         so we do a minimal tilde prefixes recognition. *)
+      let csts = TildePrefix.recognize ~in_assignment:false csts in
       [Pretoken.PreWord (w, csts)]
   in
   let tokens = if with_newline then tokens @ [Pretoken.NEWLINE] else tokens in