anchor.diff:  
   open FStar.Parser.ParseIt
   
  -// FIXME: Store repl_names in the stack, too
  -type repl_state = { repl_line: int; repl_column: int; repl_fname: string;
  -                    repl_deps: (deps_stack_t * m_timestamps);
  -                    repl_curmod: modul_t; repl_env: env_t;
  -                    repl_stdin: stream_reader; repl_names: CTable.table }
  -
  -let repl_stack: ref<list<repl_state>> = Util.mk_ref []
  +type partial_repl_state =
  +  { prepl_fname: string; prepl_stdin: stream_reader }
  +
  +type full_repl_state = { repl_line: int; repl_column: int; repl_fname: string;
  +                         repl_deps: (deps_stack_t * m_timestamps);
  +                         repl_curmod: modul_t; repl_env: env_t;
  +                         repl_stdin: stream_reader; repl_names: CTable.table }
  +
  +type repl_state =
  +| PartialReplState of partial_repl_state
  +| FullReplState of full_repl_state
  +
  +let repl_stack: ref<list<full_repl_state>> = Util.mk_ref []
   
   let repl_stack_empty () =
     match !repl_stack with
  
positive.code:   let json = List.map CTable.json_of_completion_result (lids @ mods_and_nss) in
    ((QueryOK, JsonList json), Inl st)
  
  let run_module_autocomplete st search_term modules namespaces =
    let needle = Util.split search_term "." in
    let mods_and_nss = CTable.autocomplete_mod_or_ns st.repl_names needle Some in
    let json = List.map CTable.json_of_completion_result mods_and_nss in
  
negative.code:            | "pop" -> Pop
             | "describe-protocol" -> DescribeProtocol
             | "describe-repl" -> DescribeRepl
             | "peek" | "push" -> Push ({ push_kind = arg "kind" |> js_pushkind;
                                         push_code = arg "code" |> js_str;
                                         push_line = arg "line" |> js_int;
                                         push_column = arg "column" |> js_int;
                                         push_peek_only = query = "peek" })
             | "autocomplete" -> AutoComplete (arg "partial-symbol" |> js_str,
                                              try_arg "context" |> js_optional_completion_context)
             | "lookup" -> Lookup (arg "symbol" |> js_str,
  