X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=joy%2Flibrary.py;h=800ff3b76fca339294dcdcdd2bc7a1ff3b616c29;hb=fcd4c613e4a049a21fe0ed5bed42770390bc1b80;hp=551d6c66b7870e4ff6a17c957499814afebe11fa;hpb=b0b9a71fd9a6d795343b6c8df1626e9a2c04a67e;p=joypy%2FThun.git

diff --git a/joy/library.py b/joy/library.py
index 551d6c6..800ff3b 100644
--- a/joy/library.py
+++ b/joy/library.py
@@ -203,6 +203,7 @@ class Def(object):
             name, body = text_to_expression(line)
             if name not in dictionary:
                 inscribe(class_(name, body), dictionary)
+##            inscribe(class_(name, body), dictionary)
 
 
 #
@@ -784,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):
     '''
     ::