Revert "hoon: add pin and awl arms to test and trim subaxes"

This commit is contained in:
Joe Bryan 2023-10-06 12:31:22 -04:00 committed by GitHub
parent 261d202bb0
commit f2495aafdc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -226,34 +226,6 @@
* (add (mod b 2) (mul $(b (div b 2)) 2))
==
::
++ pin
~/ %pin
:: sub axis test
::
:: checks whether {b} addresses a subtree of the tree addressed by {a}.
|= [a=@ b=@]
?< =(0 a)
?< =(0 b)
|- ^- ?
?: =(a 1) &
?: =(b 1) |
?. =((cap a) (cap b)) |
$(a (mas a), b (mas b))
::
++ hub
~/ %hub
:: axis after axis
::
:: computes the remainder of axis {b} when navigating to {a}.
:: (crashes if not `(pin a b)`)
|= [a=@ b=@]
?< =(0 a)
?< =(0 b)
|- ^- @
?: =(a 1) b
?> =((cap a) (cap b))
$(a (mas a), b (mas b))
::
:: # %containers
::
:: the most basic of data types