From 100849b4f9ee53e92d796f459ad602f464c09d15 Mon Sep 17 00:00:00 2001
From: Luciano Perezzini <lperezzini@gmail.com>
Date: Wed, 11 Oct 2017 18:39:44 -0300
Subject: [PATCH] Use original data structure of Tiger types

---
 tigertips.sml | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/tigertips.sml b/tigertips.sml
index ea5580d..a698b35 100755
--- a/tigertips.sml
+++ b/tigertips.sml
@@ -4,11 +4,9 @@ struct
 type unique = unit ref
 datatype Tipo = TUnit
 	| TNil
-	| TInt
-	| TString
-	| TArray of Tipo * unique
-	| TRecord of (string * Tipo * int) list * unique
-	| TFunc of Tipo list * Tipo
-	| TTipo of string * Tipo option ref
-
+	| TInt (* primitive, RW *)
+	| TString (* primitive *)
+	| TArray of Tipo ref  * unique
+	| TRecord of (string * Tipo ref * int) list * unique (* int es la pos del id dentro del record *)
+	| TTipo of string
 end
\ No newline at end of file