Complete inside structures

## Problem



```sml
structure S = struct
  open Int
  val f = toSt
  (* this should complete to toString, from opening Int *)
end
```

## Solution



Make completions work better inside structure and functor bodies.