From: Simon Forman <sforman@hushmail.com>
Date: Wed, 13 Jun 2018 17:24:36 +0000 (-0700)
Subject: Elegant definitions for un-, bin-, tern-ary combinators.
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=049cfd22b745a16c85a0478841bdf65bf61b6a2a;p=joypy%2FThun.git

Elegant definitions for un-, bin-, tern-ary combinators.
---

diff --git a/joy/library.py b/joy/library.py
index 0bafed9..f754093 100644
--- a/joy/library.py
+++ b/joy/library.py
@@ -103,9 +103,9 @@ disenstacken == ? [uncons ?] loop pop
 ? == dup truthy
 dinfrirst == dip infra first
 nullary == [stack] dinfrirst
-unary == [stack [pop] dip] dinfrirst
-binary == [stack [popop] dip] dinfrirst
-ternary == [stack [popop pop] dip] dinfrirst
+unary == nullary popd
+binary == nullary [popop] dip
+ternary == unary [popop] dip
 pam == [i] map
 run == [] swap infra
 sqr == dup mul