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

removes accumulator arg from in_tap jet

Browse Source
This commit is contained in:
Joseph Bryan 2017-03-20 18:02:17 -04:00
parent cee04c794b
commit 9bbeed0ef8
13 changed files with 25 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
include/jets/k.h
View File

@ -68,7 +68,7 @@
/* u3kdi_tap(): map/set convert to list. (solves by_tap also.)
*/
u3_noun
u3kdi_tap(u3_noun a, u3_noun b);
u3kdi_tap(u3_noun a);
/* u3kdi_put(): put in set.
*/
@ -80,7 +80,7 @@
u3_noun
u3kdi_uni(u3_noun a, u3_noun b);
# define u3kdb_tap(a, b) u3kdi_tap(a, b)
# define u3kdb_tap(a) u3kdi_tap(a)
/* u3ke: tier 5 functions
*/

2
include/jets/q.h
View File

@ -88,7 +88,7 @@
u3_noun u3qdi_int(u3_noun, u3_noun);
u3_noun u3qdi_mer(u3_noun, u3_noun);
u3_noun u3qdi_put(u3_noun, u3_noun);
u3_noun u3qdi_tap(u3_noun, u3_noun);
u3_noun u3qdi_tap(u3_noun);
u3_noun u3qdi_uni(u3_noun, u3_noun);
u3_noun u3qdi_wyt(u3_noun);

22
jets/d/in_tap.c
View File

@ -27,31 +27,29 @@
}
u3_noun
u3qdi_tap(u3_noun a,
u3_noun b)
u3qdi_tap(u3_noun a)
{
return _tap_in(a, u3k(b));
return _tap_in(a, u3_nul);
}
u3_noun
u3wdi_tap(u3_noun cor)
{
u3_noun a, b;
u3_noun a;
if ( c3n == u3r_mean(cor, u3x_sam, &b, u3x_con_sam, &a, 0) ) {
if ( c3n == u3r_mean(cor, u3x_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3qdi_tap(a, b);
return u3qdi_tap(a);
}
}
u3_noun
u3kdi_tap(u3_noun a,
u3_noun b)
u3kdi_tap(u3_noun a)
{
u3_weak c = u3qdi_tap(a, b);
u3_weak b = u3qdi_tap(a);
u3z(a); u3z(b);
if ( u3_none == c ) {
u3z(a);
if ( u3_none == b ) {
return u3m_bail(c3__exit);
}
else return c;
else return b;
}

2
jets/f/ut_burn.c
View File

@ -119,7 +119,7 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun yed = u3qdi_tap(p_sut);
u3_noun ret = _burn_fork(van, yed, gil);
u3z(yed);

4
jets/f/ut_crop.c
View File

@ -152,7 +152,7 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun yed = u3qdi_tap(p_sut);
u3_noun ret = u3kf_fork(_crop_dext_fork(van, yed, ref, bix));
u3z(yed);
@ -202,7 +202,7 @@
}
case c3__fork: p_ref = u3t(ref);
{
u3_noun yed = u3qdi_tap(p_ref, u3_nul);
u3_noun yed = u3qdi_tap(p_ref);
u3_noun ret = _crop_sint_fork(van, sut, yed, bix);
u3z(yed);

2
jets/f/ut_find.c
View File

@ -385,7 +385,7 @@
u3_noun gil)
{
u3_noun p_sut = u3t(sut);
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun yed = u3qdi_tap(p_sut);
u3_noun wiz;
u3_noun ret;

2
jets/f/ut_fish.c
View File

@ -101,7 +101,7 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun yed = u3qdi_tap(p_sut);
u3_noun ret = _fish_fork(van, yed, axe, vit);
u3z(yed);

2
jets/f/ut_fuse.c
View File

@ -134,7 +134,7 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun yed = u3qdi_tap(p_sut);
u3_noun ret = u3kf_fork(_fuse_in_fork(van, yed, ref, bix));
u3z(yed);

4
jets/f/ut_nest.c
View File

@ -271,7 +271,7 @@
}
{
u3_noun dey = u3qdi_tap(p_sut, u3_nul);
u3_noun dey = u3qdi_tap(p_sut);
u3_noun yed = dey;
while ( u3_nul != yed ) {
@ -418,7 +418,7 @@
}
case c3__fork: p_ref = u3t(ref);
{
u3_noun dey = u3qdi_tap(p_ref, u3_nul);
u3_noun dey = u3qdi_tap(p_ref);
u3_noun yed = dey;
while ( u3_nul != yed ) {

2
jets/f/ut_peek.c
View File

@ -137,7 +137,7 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun yed = u3qdi_tap(p_sut);
u3_noun ret = u3kf_fork(_peek_fork(van, yed, way, axe, gil));
u3z(yed);

2
jets/f/ut_rest.c
View File

@ -26,7 +26,7 @@
u3_noun gar)
{
u3_noun gun = u3qdi_gas(u3_nul, gar);
u3_noun yed = u3qdi_tap(gun, u3_nul);
u3_noun yed = u3qdi_tap(gun);
u3z(gun);
return yed;

2
jets/f/ut_wrap.c
View File

@ -50,7 +50,7 @@
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
u3_noun yed = u3qdi_tap(p_sut);
u3_noun ret = u3kf_fork(_wrap_fork(van, yed, yoz));
u3z(yed);

2
vere/fuse.c
View File

@ -311,7 +311,7 @@ _inode_load(u3_fnod* nod_u)
if ( u3_nul == u3h(ark) ) {
nod_u->typ_e = u3_fuse_type_directory;
nod_u->dir_u = _inode_fill_directory
(nod_u, u3qdb_tap(u3t(ark), u3_nul));
(nod_u, u3qdb_tap(u3t(ark)));
}
else {
u3_noun dat;