About to remove cnbc and cnhx.

This commit is contained in:
C. Guy Yarvin 2014-01-04 19:18:06 -08:00
parent 0fb69f3ba5
commit 431fed0f71
3 changed files with 10 additions and 0 deletions

View File

@ -621,9 +621,15 @@
case c3__cnbc: {
return u2_bc(wir_r, u2_rx(wir_r, u2_t(gen)), u2_nul);
}
case c3__cnzy: {
return u2_bc(wir_r, u2_rx(wir_r, u2_t(gen)), u2_nul);
}
case c3__cnhx: {
return u2_rx(wir_r, u2_t(gen));
}
case c3__cnzz: {
return u2_rx(wir_r, u2_t(gen));
}
case c3__cnts: {
if ( u2_no == u2_as_cell(u2_t(gen), &p_gen, &q_gen) ) {
return u2_bl_bail(wir_r, c3__fail);

View File

@ -60,6 +60,8 @@
u2_noun sut, // retain
u2_noun ref) // retain
{
return u2k(ref);
#if 0
u2_ho_jet *jet_j = &j2_mcj(Pt6, ut, sift)[0];

View File

@ -195,6 +195,8 @@
# define c3__cnsg c3_s4('c','n','s','g')
# define c3__cntr c3_s4('c','n','t','r')
# define c3__cnts c3_s4('c','n','t','s')
# define c3__cnzy c3_s4('c','n','z','y')
# define c3__cnzz c3_s4('c','n','z','z')
# define c3__coat c3_s4('c','o','a','t')
# define c3__code c3_s4('c','o','d','e')
# define c3__coin c3_s4('c','o','i','n')