Renamed %form to %hint.

This commit is contained in:
Curtis Yarvin 2018-04-24 22:29:31 -07:00
parent a2e2dee3db
commit 63ea041ecf
14 changed files with 25 additions and 25 deletions

View File

@ -204,7 +204,7 @@
u3_noun u3qf_forq(u3_noun, u3_noun);
u3_noun u3qf_fork(u3_noun);
u3_noun u3qf_grof(u3_noun);
u3_noun u3qf_form(u3_noun, u3_noun);
u3_noun u3qf_hint(u3_noun, u3_noun);
u3_noun u3qf_hike(u3_noun, u3_noun);
u3_noun u3qf_look(u3_noun, u3_noun);
u3_noun u3qf_loot(u3_noun, u3_noun);
@ -282,7 +282,7 @@
u3_noun u3qz_forq(u3_noun, u3_noun);
u3_noun u3qz_fork(u3_noun);
u3_noun u3qz_grof(u3_noun);
u3_noun u3qz_form(u3_noun, u3_noun);
u3_noun u3qz_hint(u3_noun, u3_noun);
u3_noun u3qz_hike(u3_noun, u3_noun);
u3_noun u3qz_look(u3_noun, u3_noun);
u3_noun u3qz_loot(u3_noun, u3_noun);

View File

@ -233,7 +233,7 @@
u3_noun u3wf_flor(u3_noun);
u3_noun u3wf_forq(u3_noun);
u3_noun u3wf_fork(u3_noun);
u3_noun u3wf_form(u3_noun);
u3_noun u3wf_hint(u3_noun);
u3_noun u3wf_hike(u3_noun);
u3_noun u3wf_look(u3_noun);
u3_noun u3wf_loot(u3_noun);

View File

@ -7,7 +7,7 @@
/* functions
*/
u3_noun
u3qf_form(u3_noun sag,
u3qf_hint(u3_noun sag,
u3_noun tip)
{
if ( c3__void == tip ) {
@ -16,17 +16,17 @@
if ( c3__noun == tip ) {
return c3__noun;
}
else return u3nt(c3__form, u3k(sag), u3k(tip));
else return u3nt(c3__hint, u3k(sag), u3k(tip));
}
u3_noun
u3wf_form(u3_noun cor)
u3wf_hint(u3_noun cor)
{
u3_noun sag, tip;
if ( c3n == u3r_mean(cor, u3x_sam_2, &sag, u3x_sam_3, &tip, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3qf_form(sag, tip);
return u3qf_hint(sag, tip);
}
}

View File

@ -142,10 +142,10 @@
}
else return _crop_sint(van, sut, ref, bix);
}
case c3__form: u3x_cell(u3t(sut), &p_sut, &q_sut);
case c3__hint: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
u3_noun foz = _crop_dext(van, q_sut, ref, bix);
u3_noun ret = u3qf_form(p_sut, foz);
u3_noun ret = u3qf_hint(p_sut, foz);
u3z(foz);
return ret;
@ -204,7 +204,7 @@
default: return u3m_bail(c3__fail);
case c3__core:
case c3__form:
case c3__hint:
case c3__face: u3x_cell(u3t(ref), &p_ref, &q_ref);
{
return _crop_dext(van, sut, q_ref, bix);

View File

@ -675,7 +675,7 @@
// fprintf(stderr, "core\r\n");
return _find_buck_core(van, sut, way, p_heg, q_heg, axe, lon, gil);
}
case c3__form:
case c3__hint:
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun pro = _find_bucx(van, fop, way, p_heg, q_heg, axe, lon, gil);

View File

@ -92,7 +92,7 @@
case c3__core: {
return u3m_error("fish-core");
}
case c3__form:
case c3__hint:
case c3__face: {
if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) {
return u3m_bail(c3__fail);

View File

@ -124,10 +124,10 @@
{
return _fuse_repo(van, sut, ref, bix);
}
case c3__form: u3x_cell(u3t(sut), &p_sut, &q_sut);
case c3__hint: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
u3_noun vot = _fuse_in(van, q_sut, ref, bix);
u3_noun ret = u3qf_form(p_sut, vot);
u3_noun ret = u3qf_hint(p_sut, vot);
u3z(vot);
return ret;

View File

@ -544,7 +544,7 @@
{
u3_noun hum = _mint_in(van, sut, gol, q_gen);
u3_noun ret = u3nc(u3qf_form(p_gen, u3h(hum)),
u3_noun ret = u3nc(u3qf_hint(p_gen, u3h(hum)),
u3k(u3t(hum)));
u3z(hum);
return ret;
@ -556,7 +556,7 @@
u3_noun hep = u3nc(c3__docs, u3k(p_gen));
u3_noun hum = _mint_in(van, sut, gol, q_gen);
u3_noun ret = u3nc(u3qf_form(hep, u3h(hum)),
u3_noun ret = u3nc(u3qf_hint(hep, u3h(hum)),
u3k(u3t(hum)));
u3z(hep);

View File

@ -525,8 +525,8 @@
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, q_gen);
u3_noun ret = u3nc(u3qf_form(p_gen, u3h(vat)),
u3qf_form(p_gen, u3t(vat)));
u3_noun ret = u3nc(u3qf_hint(p_gen, u3h(vat)),
u3qf_hint(p_gen, u3t(vat)));
u3z(vat);
return ret;

View File

@ -283,7 +283,7 @@
else return _nest_sint(van, sut, tel, ref, seg, reg, gil);
}
}
case c3__form:
case c3__hint:
case c3__face: {
if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) {
return u3m_bail(c3__fail);
@ -447,7 +447,7 @@
u3z(gam);
return hiv;
}
case c3__form:
case c3__hint:
case c3__face: {
if ( c3n == u3r_trel(ref, 0, &p_ref, &q_ref) ) {
return u3m_bail(c3__fail);

View File

@ -128,7 +128,7 @@
return pro;
}
}
case c3__form:
case c3__hint:
case c3__face: {
if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) {
return u3m_bail(c3__fail);

View File

@ -382,7 +382,7 @@
_play_used();
{
u3_noun boc = _play_x(van, sut, q_gen);
u3_noun ret = u3qf_form(p_gen, boc);
u3_noun ret = u3qf_hint(p_gen, boc);
u3z(boc);
return ret;

View File

@ -34,7 +34,7 @@
return u3nt(c3__cell, c3__noun, u3k(p_sut));
}
}
case c3__form:
case c3__hint:
case c3__face: {
if ( c3n == u3r_cell(u3t(sut), &p_sut, &q_sut)) {
return u3m_bail(c3__fail);

View File

@ -105,7 +105,7 @@ static u3j_core _143_hex_d[] =
static u3j_harm _143_pen_comb_a[] = {{".2", u3wf_comb}, {}};
static u3j_harm _143_pen_cons_a[] = {{".2", u3wf_cons}, {}};
static u3j_harm _143_pen_core_a[] = {{".2", u3wf_core}, {}};
static u3j_harm _143_pen_form_a[] = {{".2", u3wf_form}, {}};
static u3j_harm _143_pen_hint_a[] = {{".2", u3wf_hint}, {}};
static u3j_harm _143_pen_face_a[] = {{".2", u3wf_face}, {}};
static u3j_harm _143_pen_fitz_a[] = {{".2", u3wf_fitz}, {}};
static u3j_harm _143_pen_flan_a[] = {{".2", u3wf_flan}, {}};
@ -179,7 +179,7 @@ static u3j_core _143_pen_d[] =
{ "flip", _143_pen_flip_a },
{ "flor", _143_pen_flor_a },
{ "fork", _143_pen_fork_a },
{ "form", _143_pen_form_a },
{ "hint", _143_pen_hint_a },
{ "hike", _143_pen_hike_a },
{ "look", _143_pen_look_a },
{ "loot", _143_pen_loot_a },