account for lids too, in free_vars

FStarLang · Aug 15, 2023 · a3158d4 · a3158d4
1 parent dbc012b
commit a3158d4
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 9 deletions.
diff --git a/ocaml/fstar-lib/generated/FStar_ToSyntax_ToSyntax.ml b/ocaml/fstar-lib/generated/FStar_ToSyntax_ToSyntax.ml
diff --git a/src/tosyntax/FStar.ToSyntax.ToSyntax.fst b/src/tosyntax/FStar.ToSyntax.ToSyntax.fst
@@ -325,10 +325,11 @@ and free_vars tvars_only env t = match (unparen t).tm with
     else (
       let ids = Ident.ids_of_lid x in
       match ids with
-      | [x] -> ( //unqualified name
-        match Env.try_lookup_id env x with
-        | None -> [x]
-        | _ -> []        
+      | [id] -> ( //unqualified name
+        if None? (Env.try_lookup_id env id)
+        && None? (Env.try_lookup_lid env x)
+        then [id]
+        else []
       )
       | _ -> []
     )