Add dfn parsing, but not evaluation yet

1 files changed, 8 insertions, 3 deletions

diff --git a/apl9.h b/apl9.h
index 30c5897..f30c6e8 100644
--- a/apl9.h
+++ b/apl9.h
@@ -12,8 +12,6 @@ typedef enum
 	BoundFunctionTag, /* Function with left arg bound */
 	LParTag,
 	RParTag,
-	LCurlTag,
-	RCurlTag,
 	LBracketTag,
 	RBracketTag,
 	ArrowTag,
@@ -27,6 +25,12 @@ typedef enum
 	AtypeArray,
 } arrayDataType;
 
+typedef enum
+{
+	FunctypeDfn,
+	FunctypePrim,
+} functionType;
+
 /* Data types */
 typedef struct Array Array;
 typedef struct Statement Statement;
@@ -58,9 +62,10 @@ struct Statement
 
 struct Function
 {
+	functionType type;
 	union {
 		int code;
-		Statement *dfn;
+		Rune *dfn;
 	};
 	Array *left;
 };