Add parsing for (set ...) statements

1 files changed, 7 insertions, 0 deletions

diff --git a/src/nodes.c b/src/nodes.c
index 63e9b1f..855d186 100644
--- a/src/nodes.c
+++ b/src/nodes.c
@@ -56,6 +56,13 @@ print_node(Node *node) {
             print_node(node->def.value);
             printf(")");
         } break;
+        case NODE_SET: {
+            printf("(set ");
+            print_node(node->def.symbol);
+            printf(" ");
+            print_node(node->def.value);
+            printf(")");
+        } break;
         default: { printf("{#unknown#}"); } break;
     }
 }