Instrumented and disabled ++aq; ^% hard blows.
:: ::
:::: 0: version stub ::
:: ::
-^%
~% %k.143 ~ ~ ::
|%
++ hoon-version +
{$help p/writ q/type} :: description
{$hold p/type q/hoon} :: lazy evaluation
== ::
+++ tyro $-(type type) :: type converter
++ tone $% {$0 p/*} :: success
{$1 p/(list)} :: blocks
{$2 p/(list {@ta *})} :: error ~_s
:: ~& [%bunt-model mod]
:: =- ~& [%bunt-product -]
:: -
+ ~$ %ut-ersatz-call
~+
+ ~$ %ut-ersatz-make
ersatz
++ clam
:: ~& [%clam-model mod]
:: =- ~& [%clam-product -]
:: -
+ ~$ %ut-factory-call
~+
+ ~$ %ut-factory-make
factory
++ home
:: express a hoon against the original subject
:: produce a normalizing gate (mold)
::
^- hoon
+ :+ %sgbc
+ %run-mold
:^ %brts ~^~
[%base %noun]
+ :+ %sgbc
+ %run-make
~(construct sample(dom (peg 7 dom)) [6 %&])
::
++ sample
one/line
rep/(list line)
==
- ^- hoon
+ :+ %sgbc
+ %run-switch
+ |- ^- hoon
:: if no other choices, construct head
::
?~ rep construct(mod `tile`one)
:+ %brdt ~^~
:: trap is only kicked if sample is cell
::
+ :+ %sgbc
+ %run-deep
construct(top [& &])
:: boc: call constructor
:: but: default
::
=/ boc/hoon [%limb %$]
=/ but/hoon default
+ :+ %sgbc
+ %run-probing
:+ %ktls
boc
?: =(& top)
--
::
++ aq :: hoon engine
+ =- ap
~% %aq
+>
==
:: ~| mask.bus
=+ jon=(apex:musk bus q.pro)
?~ jon
+ ?: fab
pro
+ ~| %musk-stopped
+ !!
?: ?=($| -.u.jon)
+ ?: fab
pro
+ ~| %musk-blocked
+ !!
[p.pro [%1 p.u.jon]]
::
++ burn
==
::
++ take
- |= {vit/vein duz/$-(type type)}
+ |= {vit/vein duz/tyro}
^- (pair axis type)
:- (tend vit)
=. vit (flop vit)
%- stew
^. stet ^. limo
:~ ['|' (rune bar %sgbr expb)]
- ['$' (rune buc %sgbc expg)]
+ ['$' (rune buc %sgbc expf)]
['_' (rune cab %sgcb expb)]
['%' (rune cen %sgcn hind)]
['/' (rune fas %sgfs hine)]
