anchor.diff:  
   let run_autocomplete st search_term context =
     match context with
  -  | CKSymbol ->
  -    run_symbol_autocomplete st search_term
  +  | CKCode ->
  +    run_code_autocomplete st search_term
     | CKOption is_reset ->
       run_option_autocomplete st search_term is_reset
     | CKModuleOrNamespace (modules, namespaces) ->
  
positive.code:     | "include"
      | "module-alias" -> CKModuleOrNamespace (true, false)
      | _ ->
        js_fail "completion context (symbol, set-options, reset-options, \
  open, let-open, include, module-alias)" k
  
  type query' =
  
negative.code:   | _ -> js_fail "reduction rule" s
  
  type completion_context =
  | CKCode
  | CKOption of bool (* #set-options (false) or #reset-options (true) *)
  | CKModuleOrNamespace of bool (* modules *) * bool (* namespaces *)
  
  let js_optional_completion_context k =
    match k with
    | None -> CKCode
    | Some k ->
      match js_str k with
      | "symbol" // Backwards compatibility
      | "code" -> CKCode
      | "set-options" -> CKOption false
      | "reset-options" -> CKOption true
      | "open" -> CKModuleOrNamespace (true, true)
  