ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-16 10:49:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed scag jet, still disabled pending testing.

Browse Source
This commit is contained in:
Luke Patmore 2014-05-28 12:44:20 -07:00
parent 8b085f0923
commit d7e84e24cd
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gen164/2/scag.c
View File

@ -16,23 +16,22 @@
return u2_bl_bail(wir_r, c3__fail);
}
else {
u2_noun acc;
c3_w i_w = a;
u2_noun acc_w;
if ( a == 0 )
if ( !i_w )
return u2_nul;
while ( i_w ) {
if ( u2_no == u2_dust(b) ) {
return u2_nul;
}
acc_w = u2_cn_cell( u2_h(b), acc_w );
acc = u2_cn_cell( u2_h(b), acc );
b = u2_t(b);
i_w--;
}
acc_w = j2_mbc(Pt2, flop)(wir_r, acc_w);
return u2_rx(wir_r, acc_w);
return u2_ckb_flop(acc);
}
}
u2_noun // transfer
@ -52,6 +51,12 @@
/* structures
*/
/* u2_ho_jet */
/* j2_mbj(Pt2, scag)[] = { */
/* { ".2", c3__lite, j2_mb(Pt2, scag), u2_jet_dead, u2_none, u2_none }, */
/* { } */
/* }; */
u2_ho_jet
j2_mbj(Pt2, scag)[] = {
{ ".2", c3__lite, j2_mb(Pt2, scag), u2_jet_dead, u2_none, u2_none },