ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

Switch to %fits for kelp testing.

Browse Source
This commit is contained in:
C. Guy Yarvin 2018-03-08 16:41:21 -08:00
parent 59ebad05a0
commit a4081b1af9
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sys/hoon.hoon
View File

@ -7002,9 +7002,12 @@
rep/(list line) rep/(list line)
== ==
|- ^- hoon |- ^- hoon
:: tup: tuple matching this line
::
=/ tup/crib [%tupl p.one q.one ~]
:: if no other choices, construct head :: if no other choices, construct head
:: ::
?~ rep relative:clear(mod [%tupl p.one q.one ~]) ?~ rep relative:clear(mod tup)
:: fin: loop completion :: fin: loop completion
:: ::
=/ fin/hoon $(one i.rep, rep t.rep) =/ fin/hoon $(one i.rep, rep t.rep)
@ -7013,7 +7016,9 @@
:^ %wtcl :^ %wtcl
:: test if the head matches this wing :: test if the head matches this wing
:: ::
[%wtts p.one fetch-wing(axe (peg axe 2))] :+ %fits
[%tsgl [%$ 2] example:clear(mod tup)]
fetch-wing(axe (peg axe 2))
:: if so, use this form :: if so, use this form
:: ::
:- [%rock p.p.one q.p.one] :- [%rock p.p.one q.p.one]