urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-04 10:32:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

or-map: added get arm and tested it

Browse Source
This commit is contained in:
Logan Allen 2020-06-05 15:49:53 -04:00
parent d272da0f57
commit 24e0d597ba
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/lib/or-map.hoon
View File

@ -256,7 +256,7 @@
?~ a ~ ?~ a ~
?: =(b key.n.a) ?: =(b key.n.a)
`val.n.a `val.n.a
?: (ord b key.n.a) ?: (compare b key.n.a)
$(a l.a) $(a l.a)
$(a r.a) $(a r.a)
:: ::

4
pkg/arvo/tests/lib/or-map.hoon
View File

@ -33,8 +33,8 @@
=/ a=(tree [@ud @tas]) (gas:atom-map ~ test-items) =/ a=(tree [@ud @tas]) (gas:atom-map ~ test-items)
:: ::
%+ expect-eq %+ expect-eq
!> [~ [0^%a]] !> [~ %d]
!> (get:atom-map a 0) !> (get:atom-map a 3)
:: ::
++ test-ordered-map-sig-get ^- tang ++ test-ordered-map-sig-get ^- tang
:: ::