urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 05:26:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

Cache ++blow.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-12-07 08:49:55 -08:00
parent 98c28965cf
commit 2b8c046b13
2 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/c/motes.h
View File

@ -85,6 +85,7 @@
# define c3__blog c3_s4('b','l','o','g') # define c3__blog c3_s4('b','l','o','g')
# define c3__bloq c3_s4('b','l','o','q') # define c3__bloq c3_s4('b','l','o','q')
# define c3__blot c3_s4('b','l','o','t') # define c3__blot c3_s4('b','l','o','t')
# define c3__blow c3_s4('b','l','o','w')
# define c3__blue c3_s4('b','l','u','e') # define c3__blue c3_s4('b','l','u','e')
# define c3__blur c3_s4('b','l','u','r') # define c3__blur c3_s4('b','l','u','r')
# define c3__bndl c3_s4('b','n','d','l') # define c3__bndl c3_s4('b','n','d','l')

31
jets/f/ut_mint.c
View File

@ -828,17 +828,28 @@
case c3__cold: p_gen = u3t(gen); case c3__cold: p_gen = u3t(gen);
_mint_used(); _mint_used();
{ {
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_hook(von, "blow");
u3_noun pro;
pro = u3n_kick_on(u3i_molt(gat, c3_m fun_m = 144 + c3__blow;
u3x_sam_2, u3_noun vrf = u3r_at(u3qfu_van_vrf, van);
u3k(gol), u3_noun pro = u3z_find_4(fun_m, vrf, sut, gol, p_gen);
u3x_sam_3,
u3k(p_gen), if ( u3_none != pro ) {
0)); return pro;
return pro; }
else {
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_hook(von, "blow");
u3_noun pro;
pro = u3n_kick_on(u3i_molt(gat,
u3x_sam_2,
u3k(gol),
u3x_sam_3,
u3k(p_gen),
0));
return u3z_save_4(fun_m, vrf, sut, gol, p_gen, pro);
}
} }
case c3__zpcm: u3x_cell(u3t(gen), &p_gen, &q_gen); case c3__zpcm: u3x_cell(u3t(gen), &p_gen, &q_gen);