From 049cfd22b745a16c85a0478841bdf65bf61b6a2a Mon Sep 17 00:00:00 2001
From: Simon Forman <sforman@hushmail.com>
Date: Wed, 13 Jun 2018 10:24:36 -0700
Subject: [PATCH] Elegant definitions for un-, bin-, tern-ary combinators.

---
 joy/library.py | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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