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

Reverse =/ and =;. Fix a =^ issue.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-02-27 13:49:29 -08:00 committed by Raymond Pasco
parent 4a75bfd569
commit 7b5ad6a307
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
arvo/hoon.hoon
View File

@ -280,8 +280,8 @@
:: :::::: compositions :: :::::: compositions
{$new p/twig q/twig} :: =| push bunt {$new p/twig q/twig} :: =| push bunt
{$fix p/(list (pair wing twig)) q/twig} :: =: q with p changes {$fix p/(list (pair wing twig)) q/twig} :: =: q with p changes
{$var p/taco q/twig r/twig} :: =; typed variable {$var p/taco q/twig r/twig} :: =/ typed variable
{$rev p/taco q/twig r/twig} :: =/ =;(q p r) {$rev p/taco q/twig r/twig} :: =; =/(q p r)
{$set p/wing q/twig r/twig} :: =. r with p as q {$set p/wing q/twig r/twig} :: =. r with p as q
{$rap p/twig q/twig} :: =< =>(q p) {$rap p/twig q/twig} :: =< =>(q p)
{$nip p/twig q/twig} :: =- =+(q p) {$nip p/twig q/twig} :: =- =+(q p)
@ -7263,7 +7263,9 @@
:+ %per :- ?@ p.gen :: :+ %per :- ?@ p.gen ::
:+ %name p.gen :: => :- ^= \p.gen :+ %name p.gen :: => :- ^= \p.gen
[%rap [%$ 2] [%limb %a]] :: -.a [%rap [%$ 2] [%limb %a]] :: -.a
:+ %cast [%coat p.gen] :: => :- ^- \p.gen :+ %cast
:+ %coat -.p.gen
[%per [%limb %v] +.p.gen] :: => :- ^- \p.gen
[%rap [%$ 2] [%limb %a]] :: -.a [%rap [%$ 2] [%limb %a]] :: -.a
[%limb %v] :: v [%limb %v] :: v
s.gen :: s.gen s.gen :: s.gen
@ -9954,8 +9956,8 @@
['.' (rune dot %set expq)] ['.' (rune dot %set expq)]
['^' (rune ket %sip expt)] ['^' (rune ket %sip expt)]
[':' (rune col %fix expp)] [':' (rune col %fix expp)]
[';' (rune sem %var expo)] ['/' (rune fas %var expo)]
['/' (rune fas %rev expo)] [';' (rune sem %rev expo)]
['<' (rune gal %rap expb)] ['<' (rune gal %rap expb)]
['>' (rune gar %per expb)] ['>' (rune gar %per expb)]
['-' (rune hep %nip expb)] ['-' (rune hep %nip expb)]