ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Breach compatibility rc2", "Revert "Tile %smsm, replaced instance in ames with ++hard call""

Browse Source 
This reverts commit 66e94bd04b9333fd7cdafaacc1714d69b3cab059.
This reverts commit d3ac409e27bafe7fc2074be71eaf86a6d97f887c.
This commit is contained in:
Anton Dyudin 2015-01-26 15:38:34 -08:00
parent 619dfbb563
commit 15f7641339
5 changed files with 9 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
arvo/hoon.hoon
View File

@ -272,7 +272,7 @@
[%smdt p=twig q=tusk] :: [%smdt p=twig q=tusk] ::
[%smdq p=(list beer)] :: assemble string [%smdq p=(list beer)] :: assemble string
[%smsg p=twig q=tusk] :: gonads [%smsg p=twig q=tusk] :: gonads
[%smsm p=twig q=twig] :: make sure q is a p [%smsm p=tile q=twig] :: make sure q is a p
:: :::::: compositions :: :::::: compositions
[%tsbr p=tile q=twig] :: push bunt: =+(_p q) [%tsbr p=tile q=twig] :: push bunt: =+(_p q)
[%tscl p=tram q=twig] :: p changes, then q [%tscl p=tram q=twig] :: p changes, then q
@ -6662,7 +6662,8 @@
:: ::
[%smsm *] :: ;; [%smsm *] :: ;;
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnzy %v] p.gen]] :: =+ a==>(v {p.gen}) :+ %tsls :+ %ktts %a :: =+ ^= a
[%tsgr [%cnzy %v] [%bccm p.gen]] :: =>(v ,{p.gen})
:+ %tsls [%ktts %b [%tsgr [%cnzy %v] q.gen]] :: =+ b==>(v {q.gen}) :+ %tsls [%ktts %b [%tsgr [%cnzy %v] q.gen]] :: =+ b==>(v {q.gen})
:+ %tsls :: =+ c=(a b) :+ %tsls :: =+ c=(a b)
[%ktts %c [%cnhp [%cnzy %a] [%cnzy %b] ~]] :: [%ktts %c [%cnhp [%cnzy %a] [%cnzy %b] ~]] ::
@ -8946,7 +8947,7 @@
=+ rev=(plex b) =+ rev=(plex b)
?~ rev ~ ?~ rev ~
%- some %- some
:+ %smsm ~(clam al a) :+ %smsm a
[%dtkt %dtzz %$ %cx u.rev] [%dtkt %dtzz %$ %cx u.rev]
;~(plug hill rood) ;~(plug hill rood)
== ==
@ -9194,7 +9195,7 @@
:~ [':' (rune col %smcl expi)] :~ [':' (rune col %smcl expi)]
['.' (rune dot %smdt expi)] ['.' (rune dot %smdt expi)]
['~' (rune sig %smsg expi)] ['~' (rune sig %smsg expi)]
[';' (rune sem %smsm expb)] [';' (rune sem %smsm expo)]
== ==
== ==
:- '=' :- '='

2
main/app/cat/core.hook
View File

@ -19,7 +19,7 @@
=+ ark=;;(arch .^(%cy pax)) =+ ark=;;(arch .^(%cy pax))
?^ q.ark ?^ q.ark
:- leaf/(spud pax) :- leaf/(spud pax)
%+ turn (lore ;;(,@t .^(%cx pax))) %+ turn (lore ;;(@t .^(%cx pax)))
|=(a=cord leaf/(trip a)) |=(a=cord leaf/(trip a))
?- r.ark :: handle ambiguity ?- r.ark :: handle ambiguity
~ ~

2
main/app/poke/core.hook
View File

@ -12,6 +12,6 @@
:: ::
++ pour ++ pour
|= [ost=bone * sih=*] |= [ost=bone * sih=*]
~& poke-resp/(,[term term] [&1 &2]:sih) ~& poke-resp/;;([term term] [&1 &2]:sih)
:_(+> [ost %pass / %g %cide %$]~) :_(+> [ost %pass / %g %cide %$]~)
-- --

3
main/app/shell/core.hook
View File

@ -10,7 +10,8 @@
:: ::
|% :: |% ::
++ axle :: ++ axle ::
$: tiv=? :: typing? $: %0 :: version
tiv=? :: typing?
pid=@u :: next process id pid=@u :: next process id
pax=_`path`/=try= :: working directory pax=_`path`/=try= :: working directory
act=(unit span) :: active child act=(unit span) :: active child

30
main/app/terminal/core.hook
View File

@ -58,36 +58,6 @@
[%vega p=path] :: [%vega p=path] ::
== == == == == ==
-- --
::
:::: from future import wick, pack, pick XX remove on breach or kelvin bump
::
|%
++ wick :: span format
|= a=@
^- (unit ,@ta)
=+ b=(rip 3 a)
=- ?^(b ~ (some (rap 3 (flop c))))
=| c=tape
|- ^- [b=tape c=tape]
?~ b [~ c]
?. =('~' i.b)
$(b t.b, c [i.b c])
?~ t.b [b ~]
?- i.t.b
%'~' $(b t.t.b, c ['~' c])
%'-' $(b t.t.b, c ['_' c])
@ [b ~]
==
::
++ pack :: light path encoding
|= [a=term b=path] ^- span
%+ rap 3 :- (wack a)
(turn b |=(c=span (cat 3 '_' (wack c))))
::
++ pick :: light path decoding
|= a=span ^- (unit ,[p=term q=path])
(rush a (most cab (sear wick urt:ab)))
--
!: !:
:::: helpers :::: helpers
:: ::