Use original data structure of Tiger types

perezzini · Oct 11, 2017 · 100849b · 100849b
1 parent 489f9d2
commit 100849b
Showing 1 changed file with 5 additions and 7 deletions.
diff --git 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