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

Comments

Browse Source
This commit is contained in:
Anton Dyudin 2014-10-20 15:18:01 -07:00 committed by Anton Dyudin
parent a0d2c80364
commit ed13febe1b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/hoon.hoon
View File

@ -2779,8 +2779,8 @@
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 2eG, parsing (whitespace) :: :: section 2eG, parsing (whitespace) ::
:: ::
++ dog ;~(plug dot gay) :: ++ dog ;~(plug dot gay) :: . number separator
++ doh ;~(plug ;~(plug hep hep) gay) :: ++ doh ;~(plug ;~(plug hep hep) gay) :: -- phon separator
++ dun (cold ~ ;~(plug hep hep)) :: -- (phep) to ~ ++ dun (cold ~ ;~(plug hep hep)) :: -- (phep) to ~
++ duz (cold ~ ;~(plug tis tis)) :: == (stet) to ~ ++ duz (cold ~ ;~(plug tis tis)) :: == (stet) to ~
++ gah (mask [`@`10 ' ' ~]) :: newline or ace ++ gah (mask [`@`10 ' ' ~]) :: newline or ace
@ -2845,13 +2845,13 @@
(boss 256 (star qat)) (boss 256 (star qat))
== ==
:: ::
++ soqs ;~(plug soq soq soq) ++ soqs ;~(plug soq soq soq) :: delimiting '''
++ sym ++ sym :: symbol
%+ cook %+ cook
|=(a=tape (rap 3 ^-((list ,@) a))) |=(a=tape (rap 3 ^-((list ,@) a)))
;~(plug low (star ;~(pose nud low hep))) ;~(plug low (star ;~(pose nud low hep)))
:: ::
++ ven ;~ (comp |=([a=@ b=@] (peg a b))) ++ ven ;~ (comp |=([a=@ b=@] (peg a b))) :: +>- axis syntax
bet bet
=+ hom=`?`| =+ hom=`?`|
|= tub=nail |= tub=nail