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

Support / instead of +, in theory.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-20 12:26:36 -08:00
parent 2519413c4f
commit 52d57f6495
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/hoon.hoon
View File

@ -9991,6 +9991,7 @@
$% {$tis p+twig} $% {$tis p+twig}
{$col p+twig} {$col p+twig}
{$ket p+twig} {$ket p+twig}
{$fas p+twig}
{$lus p+twig} {$lus p+twig}
{$pel p+tram} {$pel p+tram}
== ==
@ -10005,6 +10006,8 @@
$col [~ %tsgl ros p.vil] $col [~ %tsgl ros p.vil]
$pel (bind ~(reek ap ros) |=(hyp+wing [%cnts hyp p.vil])) $pel (bind ~(reek ap ros) |=(hyp+wing [%cnts hyp p.vil]))
$ket [~ ros p.vil] $ket [~ ros p.vil]
$fas =+ tog=~(hock ap ros)
?.(?=(@ tog) ~ [~ %bcts tog p.vil])
$lus =+ tog=~(hock ap ros) $lus =+ tog=~(hock ap ros)
?.(?=(@ tog) ~ [~ %bcts tog p.vil]) ?.(?=(@ tog) ~ [~ %bcts tog p.vil])
$tis =+ tog=~(hock ap ros) $tis =+ tog=~(hock ap ros)
@ -10020,6 +10023,7 @@
;~(plug (cold %col col) wide) ;~(plug (cold %col col) wide)
;~(plug (cold %ket ket) wide) ;~(plug (cold %ket ket) wide)
;~(plug (cold %lus lus) wide) ;~(plug (cold %lus lus) wide)
;~(plug (cold %fas fas) wide)
;~ plug ;~ plug
(easy %pel) (easy %pel)
(ifix [pel per] lobo) (ifix [pel per] lobo)