X-Git-Url: https://scm.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/440ca0ba93966e89b68dc54207c461afc0d56264..14bec4f1c7b97b6415f2816df7fd0d1ba9c95cf1:/interpretor/value.ml?ds=sidebyside

diff --git a/interpretor/value.ml b/interpretor/value.ml
index a13739e..3c97aa0 100644
--- a/interpretor/value.ml
+++ b/interpretor/value.ml
@@ -22,6 +22,8 @@ class value : basic -> value_type =
       method to_int = convert basic_to_int self#get      
       method to_float_array = convert basic_to_float_array self#get
       method to_string = convert basic_to_string self#get
+      method of_float_array : float array -> value_type =
+	fun data -> new value (basic_of_float_array data)
 
       method private prim1 : (basic -> basic) -> value = 
 	fun oper ->