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

get lib/vast2 to bail-meme not explicily error

Browse Source
This commit is contained in:
Anton Dyudin 2017-11-01 11:47:09 -07:00
parent 53c00b1f7b
commit cdb1fffcca
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/vast2.hoon
View File

@ -828,7 +828,7 @@
::
++ apex :: product twig
%+ cook
|= tum/(each manx marl):twig ^- twig
|= tum/(each manx:twig marl:twig) ^- twig
?- -.tum
$& [%xmn p.tum]
$| [%xml p.tum]
@ -862,7 +862,7 @@
==
::
++ wide-top :: wide outer top
%+ knee *(each manx marl):twig |. ~+
%+ knee *(each manx:twig marl:twig) |. ~+
;~ pose
(stag %| wide-quote)
(stag %| wide-paren-elems)
@ -870,7 +870,7 @@
==
::
++ wide-inner-top :: wide inner top
%+ knee *(each tuna marl):twig |. ~+
%+ knee *(each tuna:twig marl:twig) |. ~+
;~ pose
wide-top
(stag %& ;~(plug tuna-mode wide))
@ -900,14 +900,14 @@
::+|
::
++ drop-top
|= a/(each tuna marl):twig ^- marl:twig
|= a/(each tuna:twig marl:twig) ^- marl:twig
?- -.a
$& [p.a]~
$| p.a
==
::
++ join-tops
|= a/(list (each tuna marl)):twig ^- marl:twig
|= a/(list (each tuna:twig marl:twig)) ^- marl:twig
(zing (turn a drop-top))
::
::+|
@ -992,7 +992,7 @@
::+|
::
++ tall-top :: tall top
%+ knee *(each manx marl):twig |. ~+
%+ knee *(each manx:twig marl:twig) |. ~+
;~ pose
(stag %| ;~(pfix (plus ace) (cook collapse-chars quote-innards)))
(stag %& ;~(plug script-or-style script-style-tail))