From d152639e4495089cabbbf7a16e5bc5129af78bfa Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Wed, 12 Jan 2022 19:42:14 +0000
Subject: Add dfn parsing, but not evaluation yet

---
 apl9.h | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'apl9.h')

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;
 };
-- 
cgit v1.2.3