From 496ec36c8002a85dc0c3bb62de6d176e369b40af Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Sun, 3 Apr 2022 17:16:26 -0300 Subject: Add parsing for (set ...) statements --- src/nodes.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/nodes.c') 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; } } -- cgit v1.2.1