ref: 38a8ca52bff22a451db2409239ce4bb29be709f0
parent: 2bcb05a5abfb65ab2779e4418df2cd33415a646c
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Fri Oct 13 12:14:52 EDT 2023
Add R combinator
--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -1810,6 +1810,7 @@
case T_C: GCCHECK(1); CHKARG3; GOAP(new_ap(x, z), y); /* C x y z = x z y */
case T_CC: GCCHECK(2); CHKARG4; GOAP(new_ap(x, new_ap(y, w)), z); /* C' x y z w = x (y w) z */
case T_P: GCCHECK(1); CHKARG3; GOAP(new_ap(z, x), y); /* P x y z = z x y */
+ case T_R: GCCHECK(1); CHKARG3; GOAP(new_ap(y, z), x); /* R x y z = y z x */
case T_O: GCCHECK(1); CHKARG4; GOAP(new_ap(w, x), y); /* O x y z w = w x y */
case T_ADD: ARITHBIN(+);
--
⑨