ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

hoon: refactors nock %11 in +mink

Browse Source
This commit is contained in:
Joe Bryan 2020-05-14 13:21:59 -07:00
parent e7d8a64a21
commit 56418b7ad7
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pkg/arvo/sys/hoon.hoon
View File

@ -6426,19 +6426,15 @@
[%11 [tag=@ clue=*] next=*] [%11 [tag=@ clue=*] next=*]
=/ clue $(formula clue.formula) =/ clue $(formula clue.formula)
?. ?=(%0 -.clue) clue ?. ?=(%0 -.clue) clue
=; next =/ next
?. ?=(%0 -.next) next =? trace
:- %0 ?=(?(%hunk %hand %lose %mean %spot) tag.formula)
.* subject [[tag.formula product.clue] trace]
[11 [tag.formula 1 product.clue] 1 product.next] $(formula next.formula)
%= $ ?. ?=(%0 -.next) next
formula next.formula :- %0
trace ?. ?= ?(%hunk %hand %lose %mean %spot) .* subject
tag.formula [11 [tag.formula 1 product.clue] 1 product.next]
trace
:_ trace
[tag.formula product.clue]
==
:: ::
[%12 ref=* path=*] [%12 ref=* path=*]
=/ ref $(formula ref.formula) =/ ref $(formula ref.formula)