From aa776aaeef896cb9fa12983be2c1db3546569962 Mon Sep 17 00:00:00 2001
From: Thomas Bauereiss
Date: Wed, 3 Jul 2019 15:51:37 +0100
Subject: Consider references in topological sorting

---
 src/spec_analysis.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3