Math ops, definitions for left- and right-shift.

[joypy/Thun.git] / implementations / defs.txt

diff --git a/implementations/defs.txt b/implementations/defs.txt
index f85e92a..6d0ed4d 100644 (file)
--- 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