X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=implementations%2Fdefs.txt;h=6d0ed4d731fe501f197e6faf3b90357ab4aaef7b;hb=00f4bfcacdfc1df214975207451b63bb4b891a65;hp=f85e92a2242210efc1d4a9d0a42894bc458e9579;hpb=99f01bec1f7de5b8ad512cd2cadc6ea597f3e199;p=joypy%2FThun.git

diff --git a/implementations/defs.txt b/implementations/defs.txt
index f85e92a..6d0ed4d 100644
--- a/implementations/defs.txt
+++ b/implementations/defs.txt
@@ -56,6 +56,7 @@ ifte [nullary] dipd swap branch
 ii [dip] dupdip i
 infra swons swaack [i] dip swaack
 infrst infra first
+lshift [2 *] times
 make_generator [codireco] ccons
 mod %
 neg 0 swap -
@@ -85,6 +86,7 @@ roll< swapd swap
 rollup roll>
 rolldown roll<
 rrest rest rest
+rshift [2 /] times
 run <{} infra
 second rest first
 shift uncons [swons] dip