mirror of
https://github.com/urbit/shrub.git
synced 2024-12-20 01:01:37 +03:00
Merge pull request #6819 from urbit/revert-6592-ea/add-subaxis-test
Revert "hoon: add pin and awl arms to test and trim subaxes"
This commit is contained in:
commit
0b10a3003e
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user