minor code cleanup and removed trailing whitespace
-- ::
|% ::
++ calf :: reduce calx
- |* sem/* :: a spansystem hack
+ |* sem/* :: a typesystem hack
|= cax/calx
?+ sem !!
$hood ?>(?=($hood -.cax) r.cax)
==
==
::
- ++ coax !. :: bolt across
+ ++ coax !. :: bolt together
|* {hoc/(bolt) fun/(burg)}
?- -.q.hoc
- $0 =+ nuf=$:fun(,.+<- p.hoc)
+ $0 =+ nuf=(fun p.hoc +<+.fun)
:- p=p.nuf
^= q
?- -.q.nuf
$1 q.nuf
$2 q.nuf
==
- $1 =+ nuf=$:fun(,.+<- p.hoc)
+ $1 =+ nuf=(fun p.hoc +<+.fun)
:- p=p.nuf
^= q
?- -.q.nuf
++ cool :: error caption
|* {cyt/$@(term (trap tank)) hoc/(bolt)}
?. ?=($2 -.q.hoc) hoc
- [p=p.hoc q=[%2 p=p.q.hoc q=[?^(cyt *cyt [>`@tas`cyt<]~) q.q.hoc]]]
+ [p=p.hoc q=[%2 p=p.q.hoc q=[?^(cyt *cyt >`@tas`cyt<) q.q.hoc]]]
::
++ cope :: bolt along
|* {hoc/(bolt) fun/(burg)}
$0 [%0 p=(~(uni in `_p.q.nuf`p.q.hoc) p.q.nuf) q=q.q.nuf]
== ==
::
- ++ coop :: bolt alter
+ ++ coop :: bolt fallback
|* {hoc/(bolt) fun/$-(cafe (bolt))}
?- -.q.hoc
$1 hoc
[%| $(a (turn (turn a2 head) |=(b/mass ?~(-.q.b !! p.q.b))))]
%+ turn (~(tap by pol))
|= {@ baby}
- :~ =< cache+[%| (turn `(list term)`/hood/bake/slit/slim/slap/slam .)]
- =- |=(a/term [a %& (~(get ja dep) a)])
- =< `dep/(jar term *)`(~(rep by jav) .)
+ :~ =/ caches/(jar term *)
+ %- ~(rep by jav)
|=({{* a/{term *}} b/(jar term *)} (~(add ja b) -.a +.a))
+ =/ cache-for |=(a/term [a %& (~(get ja caches) a)])
+ cache+[%| (turn `(list term)`/hood/bake/slit/slim/slap/slam cache-for)]
::
- =< depends+[%| (turn `(list term)`/init/sent/done .)]
- =- |=(a/term [a %& (~(get ja dep) a)])
- =< `dep/(jar term *)`(~(rep by deh) .)
+ =/ depends/(jar term *)
+ %- ~(rep by deh)
|=({{@ a/{term *}} b/(jar term *)} (~(add ja b) -.a +.a))
+ =/ dep-for |=(a/term [a %& (~(get ja depends) a)])
+ depends+[%| (turn `(list term)`/init/sent/done dep-for)]
::
tasks+[%& dym tad]
==
