From 9714afeb275360110161c870b50627128fda75a0 Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Wed, 14 May 2014 17:23:57 +0200 Subject: Many things work! --- abstract/environment_domain.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'abstract/environment_domain.ml') diff --git a/abstract/environment_domain.ml b/abstract/environment_domain.ml index 254f755..05473aa 100644 --- a/abstract/environment_domain.ml +++ b/abstract/environment_domain.ml @@ -11,6 +11,7 @@ module type ENVIRONMENT_DOMAIN = sig (* variable management *) val addvar : t -> id -> t val rmvar : t -> id -> t + val vars : t -> id list (* abstract operation *) val assign : t -> id -> expr ext -> t (* S[id <- expr] *) @@ -25,8 +26,7 @@ module type ENVIRONMENT_DOMAIN = sig val subset : t -> t -> bool (* pretty-printing *) - val var_str : t -> id list -> string - val all_vars_str : t -> string + val var_str : t -> id list -> string end -- cgit v1.2.3