Clean up Zipper notebook.

[joypy/Thun.git] / joy / library.py

diff --git a/joy/library.py b/joy/library.py
index f85c69e..800ff3b 100644 (file)
--- a/joy/library.py
+++ b/joy/library.py
@@ -785,6 +785,22 @@ def b(stack, expression, dictionary):
 
 @inscribe
 @FunctionWrapper
+def ii(stack, expression, dictionary):
+    '''
+    ::
+
+           ... a [Q] ii
+        ------------------
+            ... Q a Q
+
+    '''
+    quote, (a, stack) = stack
+    expression = concat(quote, (a, concat(quote, expression)))
+    return stack, expression, dictionary
+
+
+@inscribe
+@FunctionWrapper
 def dupdip(stack, expression, dictionary):
     '''
     ::