Nested vectors are implemented, including parser and class nstio.

[Faustine.git] / interpreter / value.ml

diff --git a/interpreter/value.ml b/interpreter/value.ml
index 48fc31c..7551237 100644 (file)
--- a/interpreter/value.ml
+++ b/interpreter/value.ml
@@ -7,6 +7,7 @@
 
 open Types;;
 open Basic;;
 
 open Types;;
 open Basic;;

+open Nest;;

 
 let convert : (basic -> 'a) -> basic -> 'a = 
   fun oper -> fun b -> oper b;;
 
 let convert : (basic -> 'a) -> basic -> 'a = 
   fun oper -> fun b -> oper b;;


@@ -22,6 +23,7 @@ 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 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 to_neststring = convert basic_to_neststring self#get

       method of_float_array : float array -> value_type =
        fun data -> new value (basic_of_float_array data)
 
       method of_float_array : float array -> value_type =
        fun data -> new value (basic_of_float_array data)