ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-03 12:42:48 +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)
==
|- ^- hoon
:: tup: tuple matching this line
::
=/ tup/crib [%tupl p.one q.one ~]
:: if no other choices, construct head
::
?~ rep relative:clear(mod [%tupl p.one q.one ~])
?~ rep relative:clear(mod tup)
:: fin: loop completion
::
=/ fin/hoon $(one i.rep, rep t.rep)
@ -7013,7 +7016,9 @@
:^ %wtcl
:: 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
::
:- [%rock p.p.one q.p.one]