diff --git a/joy/library.py b/joy/library.py index f85c69e..800ff3b 100644 --- a/joy/library.py +++ b/joy/library.py @@ -783,6 +783,22 @@ def b(stack, expression, dictionary): return stack, concat(p, concat(q, 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):