Add parsing of lambda expression

1 files changed, 12 insertions, 3 deletions

diff --git a/src/parser.h b/src/parser.h
index ee5febe..17bd6d6 100755
--- a/src/parser.h
+++ b/src/parser.h
@@ -11,6 +11,7 @@ typedef enum ObjectType {
     OBJ_TYPE_SYMBOL,
     OBJ_TYPE_STRING,
     OBJ_TYPE_PAIR,
+    OBJ_TYPE_LAMBDA,
 } ObjectType;
 
 typedef struct Object {
@@ -25,9 +26,15 @@ typedef struct Object {
 
         // OBJ_TYPE_PAIR
         struct {
-            struct Object *car;
-            struct Object *cdr;
+            struct Object *head;
+            struct Object *tail;
         };
+
+        // OBJ_TYPE_LAMBDA
+         struct {
+             struct Object **params;
+             struct Object **body;
+         };
     };
 
     size_t line;
@@ -55,6 +62,7 @@ Object * parse_string(Token tok);
 Object * parse_bool(Token tok);
 Object * parse_fixnum(Token tok);
 Object * parse_list(Parser *parser, Errors *errors);
+Object * parse_lambda(Parser *parser, Errors *errors);
 Root * parse(Token *tokens, Errors *errors);
 
 // Object operations.
@@ -63,7 +71,7 @@ void object_display(Object *obj);
 // Manage resources.
 Object * object_alloc(Token tok, ObjectType type);
 void object_free(Object *node);
-void free_roots(Root *roots);
+void free_objects(void);
 
 //
 // Helper macros.
@@ -77,6 +85,7 @@ void free_roots(Root *roots);
 #define IS_STRING(VAL) ((VAL)->type == OBJ_TYPE_STRING)
 #define IS_SYMBOL(VAL) ((VAL)->type == OBJ_TYPE_SYMBOL)
 #define IS_PAIR(VAL)   ((VAL)->type == OBJ_TYPE_PAIR)
+#define IS_LAMBDA(VAL) ((VAL)->type == OBJ_TYPE_LAMBDA)
 
 // Debug.
 #define OBJ_PRINT(OBJ) object_display(OBJ); printf("\n");