From 8299b90052e5fd064567f0bc06ee551970fd48ef Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Sat, 22 Jan 2022 20:58:20 +0000 Subject: Implement Agh trains --- eval.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index f63f5e0..63b5033 100644 --- a/eval.c +++ b/eval.c @@ -28,7 +28,7 @@ int bindingstrengths[11][11] = { 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, /* H */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* MO */ 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, /* DO */ - 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */ + 3, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */ 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0, /* ( */ 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, /* ) */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ← */ @@ -43,7 +43,7 @@ evalfn evalfns[11][11] = { 0, 0, 0, monadop, 0, 0, 0, 0, 0, 0, 0, /* H */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* MO */ dyadop, dyadop, dyadop, 0, 0, 0, 0, 0, 0, 0, 0, /* DO */ - monadfun, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */ + monadfun, train, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */ 0, 0, 0, 0, 0, 0, 0, parens, 0, 0, 0, /* ( */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ) */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ← */ @@ -297,8 +297,7 @@ train(Datum left, Datum right) result.shy = 0; result.tag = FunctionTag; result.func.type = FunctypeTrain; - result.func.left = left.func.left; - + result.func.left = nil; if(left.func.type == FunctypeTrain) result.func = left.func; else{ -- cgit v1.2.3