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

improved odor checking

Browse Source
This commit is contained in:
Anton Dyudin 2015-02-26 18:20:07 -08:00
parent 6cd54faa7a
commit cfa3183640
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/hoon.hoon
View File

@ -227,8 +227,8 @@
[%cndt p=twig q=twig] :: %-(q p) [%cndt p=twig q=twig] :: %-(q p)
[%cnhp p=twig q=tusk] :: slam p w/ sample q [%cnhp p=twig q=tusk] :: slam p w/ sample q
[%cntr p=wing q=twig r=tram] :: pull p.q w/ changes [%cntr p=wing q=twig r=tram] :: pull p.q w/ changes
[%cnkt p=twig q=twig r=twig s=twig] :: slam p w/ %*(q r s) [%cnkt p=twig q=twig r=twig s=twig] :: slam p w/ :*(q r s)
[%cnls p=twig q=twig r=twig] :: slam p w/ %*(q r) [%cnls p=twig q=twig r=twig] :: slam p w/ :*(q r)
[%cnsg p=wing q=twig r=twig] :: pull p from q with r [%cnsg p=wing q=twig r=twig] :: pull p from q with r
[%cnts p=wing q=tram] :: eval. p w/ q changes [%cnts p=wing q=tram] :: eval. p w/ q changes
[%cnzy p=term] :: pulls limb p [%cnzy p=term] :: pulls limb p
@ -2977,6 +2977,7 @@
++ teff :: length utf8 ++ teff :: length utf8
|= a=@t ^- @ |= a=@t ^- @
=+ b=(end 3 1 a) =+ b=(end 3 1 a)
~| %bad-utf8
?: =(0 b) ?: =(0 b)
?>(=(0 a) 0) ?>(=(0 a) 0)
?> |((gte b 32) =(10 b)) ?> |((gte b 32) =(10 b))
@ -7170,7 +7171,8 @@
~ ~
:+ ~ :+ ~
%leaf %leaf
?+ p.q.ham ~(rend co [~ p.q.ham lum]) ?+ (rash p.q.ham ;~(sfix (cook crip (star low)) (star hig)))
~(rend co [~ p.q.ham lum])
%$ ~(rend co [~ %ud lum]) %$ ~(rend co [~ %ud lum])
%t (dash (rip 3 lum) '\'') %t (dash (rip 3 lum) '\'')
%tas ['%' ?.(=(0 lum) (rip 3 lum) ['$' ~])] %tas ['%' ?.(=(0 lum) (rip 3 lum) ['$' ~])]