ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Tile %smsm, replaced instance in ames with ++hard call

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-08 16:10:31 -08:00
parent 8fd3e7cd8f
commit 39516d2f8c
5 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/ames.hoon
View File

@ -1759,7 +1759,7 @@
%+ turn paz
|= him=ship
:- hen
[%pass /ye %g %mess [him ye/~] p.p.bon [%txt !>(;;(,@t r.bon))]]
[%pass /ye %g %mess [him ye/~] p.p.bon [%txt !>(((hard ,@t) r.bon))]]
==
::
%mulk

15
arvo/hoon.hoon
View File

@ -274,7 +274,7 @@
[%smdt p=twig q=tusk] ::
[%smdq p=(list beer)] :: assemble string
[%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
[%tsbr p=tile q=twig] :: push bunt: =+(_p q)
[%tscl p=tram q=twig] :: p changes, then q
@ -6550,7 +6550,8 @@
::
[%smsm *] :: ;;
:+ %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 :: =+ c=(a b)
[%ktts %c [%cnhp [%cnzy %a] [%cnzy %b] ~]] ::
@ -8822,7 +8823,7 @@
=+ rev=(plex b)
?~ rev ~
%- some
:+ %smsm ~(clam al a)
:+ %smsm a
[%dtkt %dtzz %$ %cx u.rev]
;~(plug hill rood)
==
@ -9070,7 +9071,7 @@
:~ [':' (rune col %smcl expi)]
['.' (rune dot %smdt expi)]
['~' (rune sig %smsg expi)]
[';' (rune sem %smsm expb)]
[';' (rune sem %smsm expo)]
==
==
:- '='
@ -9336,15 +9337,13 @@
++ rope :: wing form
%+ knee *wing
|. ~+
%+ (slug |=([a=wing b=wing] (weld a b)))
%+ (slug |=([a=limb b=wing] [a b]))
dot
;~ pose
%+ cook
|=([a=(list) b=term] [?~(a b [%| (lent a) b]) ~])
|=([a=(list) b=term] ?~(a b [%| (lent a) b]))
;~(plug (star ket) ;~(pose sym (cold %$ buc)))
::
%+ cook
|=(a=limb [a ~])
%+ cook
|=(a=axis [%& a])
;~ pose

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

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

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

@ -17,7 +17,7 @@
=+ ark=;;(arch .^(%cy pax))
?~ q.ark ~[leaf/"file {<pax>} not available"]
:- leaf/(spud pax)
%+ turn (lore ;;(,@t .^(%cx pax)))
%+ turn (lore ;;(@t .^(%cx pax)))
|= a=cord
leaf/(trip a)
==

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

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