aboutsummaryrefslogtreecommitdiff
path: root/interpreter/syntax.c
diff options
context:
space:
mode:
Diffstat (limited to 'interpreter/syntax.c')
-rw-r--r--interpreter/syntax.c24
1 files changed, 0 insertions, 24 deletions
diff --git a/interpreter/syntax.c b/interpreter/syntax.c
index b8ba0d2..00c9554 100644
--- a/interpreter/syntax.c
+++ b/interpreter/syntax.c
@@ -84,30 +84,6 @@ unsigned eq_expression(expression* a, expression* b) {
return 0;
}
-expression** flatten_app_args(expression* from) {
- expression** result;
- unsigned int i;
-
- unsigned char len = 0;
- expression* _from = from;
- while (_from->kind == EXPR_APP) {
- len++;
- _from = _from->var1;
- }
- len++;
-
- result = my_calloc(1, sizeof(expression*) * (len + 1));
- i = 1;
- while (from->kind == EXPR_APP) {
- result[len - i] = from->var2;
- from = from->var1;
- i++;
- }
- result[0] = from;
- result[len] = NULL;
- return result;
-}
-
void concat_fuspel(fuspel* start, fuspel* end) {
while (start) {
if (!start->rest) {