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

First tier of jet defrogging.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-12 15:31:02 -08:00
parent 7a0ca2baf8
commit 72d8b26b95
6 changed files with 19 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
jets/f/ut_burn.c
View File

@ -52,11 +52,7 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun ret = _burn_in(van, fop, gil);
u3z(fop);
return ret;
return _burn_in(van, u3h(p_sut), gil);
}
case c3__frog: p_sut = u3t(sut);
{

12
jets/f/ut_crop.c
View File

@ -152,10 +152,10 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun ret = _crop_dext(van, fop, ref, bix);
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun ret = u3kf_frog(_crop_dext_frog(van, yed, ref, bix));
u3z(fop);
u3z(yed);
return ret;
}
case c3__frog: p_sut = u3t(sut);
@ -206,10 +206,10 @@
}
case c3__fork: p_ref = u3t(ref);
{
u3_noun gif = u3qfu_repo(van, ref);
u3_noun ret = _crop_dext(van, sut, gif, bix);
u3_noun yed = u3qdi_tap(p_ref, u3_nul);
u3_noun ret = _crop_sint_frog(van, sut, yed, bix);
u3z(gif);
u3z(yed);
return ret;
}
case c3__frog: p_ref = u3t(ref);

6
jets/f/ut_fish.c
View File

@ -101,10 +101,10 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun ret = _fish_in(van, fop, axe, vit);
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun ret = _fish_frog(van, yed, axe, vit);
u3z(fop);
u3z(yed);
return ret;
}
case c3__frog: {

6
jets/f/ut_fuse.c
View File

@ -134,10 +134,10 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun ret = _fuse_in(van, fop, ref, bix);
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun ret = u3kf_frog(_fuse_in_frog(van, yed, ref, bix));
u3z(fop);
u3z(yed);
return ret;
}
case c3__frog: p_sut = u3t(sut);

6
jets/f/ut_peek.c
View File

@ -114,10 +114,10 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun ret = _peek_in(van, fop, way, axe, gil);
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun ret = u3kf_frog(_peek_frog(van, yed, way, axe, gil));
u3z(fop);
u3z(yed);
return ret;
}
case c3__frog: {

6
jets/f/ut_wrap.c
View File

@ -50,10 +50,10 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun ret = _cqfu_wrap(van, fop, yoz);
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun ret = u3kf_frog(_wrap_frog(van, yed, yoz));
u3z(fop);
u3z(yed);
return ret;
}
case c3__frog: p_sut = u3t(sut);