Consider references in topological sorting

1 files changed, 1 insertions, 1 deletions

diff --git a/src/spec_analysis.ml b/src/spec_analysis.ml
index 907c62a5..57e415a8 100644
--- a/src/spec_analysis.ml
+++ b/src/spec_analysis.ml
@@ -186,7 +186,7 @@ let rec fv_of_exp consider_var bound used set (E_aux (e,(_,tannot))) : (Nameset.
   match e with
   | E_block es | Ast.E_tuple es | Ast.E_vector es | Ast.E_list es ->
     list_fv bound used set es
-  | E_id id ->
+  | E_id id | E_ref id ->
      let used = conditional_add_exp bound used id in
      let used = Nameset.union (free_type_names_tannot consider_var tannot) used in
      bound,used,set