hoon: removes +end, +lsh, and +rsh

This commit is contained in:
Joe Bryan 2020-12-02 00:24:38 -08:00
parent ac4b2a46f2
commit 9e713a5e10

View File

@ -854,11 +854,6 @@
|= [a=bloq [b=step c=step] d=@]
(new-end [a c] (new-rsh [a b] d))
::
++ end :: tail
~/ %end
|= [a=bloq b=step c=@]
(mod c (bex (mul (bex a) b)))
::
++ new-end :: tail
~/ %new-end
|= [a=bite b=@]
@ -875,11 +870,6 @@
(new-rsh a d)
$(d (add c (new-lsh a d)), n +(n))
::
++ lsh :: left-shift
~/ %lsh
|= [a=bloq b=step c=@]
(mul (bex (mul (bex a) b)) c)
::
++ new-lsh :: left-shift
~/ %new-lsh
|= [a=bite b=@]
@ -934,11 +924,6 @@
?: =(0 b) ~
[(new-end a b) $(b (new-rsh a b))]
::
++ rsh :: right-shift
~/ %rsh
|= [a=bloq b=step c=@]
(div c (bex (mul (bex a) b)))
::
++ new-rsh :: right-shift
~/ %new-rsh
|= [a=bite b=@]