From 20f26853298e6debc73fe891bbbc8532417bc20a Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 25 Sep 2016 11:33:06 +0200
Subject: Constant code names
---
interpreter/eval.c | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
(limited to 'interpreter/eval.c')
diff --git a/interpreter/eval.c b/interpreter/eval.c
index f37039b..6933c0d 100644
--- a/interpreter/eval.c
+++ b/interpreter/eval.c
@@ -341,7 +341,12 @@ void eval(fuspel* rules, struct node** node, bool to_rnf) {
break;
case NODE_CODE:
- //TODO
+ if (*((unsigned char*) (*node)->var2) == 0) {
+ Code_0* code_fun = (Code_0*) (*node)->var1;
+ code_fun(node);
+ use_node(*node, 1);
+ rerun = 1;
+ }
break;
case NODE_REDIRECT:
--
cgit v1.2.3