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

fix +cat %g under151ification

Browse Source
This commit is contained in:
Anton Dyudin 2016-03-07 12:47:51 -08:00
parent 27aa5392e6
commit 4cd86f5b36
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gen/cat.hoon
View File

@ -9,7 +9,7 @@
:::: ::::
:: ::
:- %say :- %say
|= {^ {arg/(list path)} vane=?($c $g)} |= {^ {arg/(list path)} vane/?($c $g)}
=- tang+(flop `tang`(zing -)) =- tang+(flop `tang`(zing -))
%+ turn arg %+ turn arg
|= pax/path |= pax/path
@ -17,7 +17,7 @@
=+ ark=.^(arch (cat 3 vane %y) pax) =+ ark=.^(arch (cat 3 vane %y) pax)
?^ fil.ark ?^ fil.ark
?: =(%sched -:(flop pax)) ?: =(%sched -:(flop pax))
[> .^((map ,@da cord) (cat 3 vane %x) pax)<]~ [>.^((map @da cord) (cat 3 vane %x) pax)<]~
[leaf+(spud pax) (pretty-file .^(noun (cat 3 vane %x) pax))] [leaf+(spud pax) (pretty-file .^(noun (cat 3 vane %x) pax))]
?- dir.ark :: handle ambiguity ?- dir.ark :: handle ambiguity
$~ $~