ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-03 12:42:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

Old %hold now eradicated (as %holt).

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-10 22:37:59 -08:00
parent 8cc712259e
commit 2cb759d86d
11 changed files with 35 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/c/motes.h
View File

@ -503,6 +503,7 @@
# define c3__hit c3_s3('h','i','t')
# define c3__hmal c3_s4('h','m','a','l')
# define c3__hold c3_s4('h','o','l','d')
# define c3__holt c3_s4('h','o','l','t')
# define c3__hole c3_s4('h','o','l','e')
# define c3__home c3_s4('h','o','m','e')
# define c3__homp c3_s4('h','o','m','p')

3
jets/f/type.c
View File

@ -38,5 +38,8 @@
case c3__hold: p_sut = u3t(sut);
{
}
case c3__holt: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
}
}
}

3
jets/f/ut_burn.c
View File

@ -54,7 +54,8 @@
{
return _burn_in(van, u3h(p_sut), gil);
}
case c3__hold: p_sut = u3t(sut);
case c3__hold:
case c3__holt:
{
if ( (c3y == u3qdi_has(gil, sut)) ) {
u3_noun sux = u3qfu_dunq(van, "type", sut);

6
jets/f/ut_crop.c
View File

@ -154,7 +154,8 @@
{
return u3kf_frog(_crop_dext_frog(van, p_sut, ref, bix));
}
case c3__hold: p_sut = u3t(sut);
case c3__hold:
case c3__holt:
{
u3_noun hud = u3nc(u3k(sut), u3k(ref));
@ -208,7 +209,8 @@
{
return _crop_sint_frog(van, sut, p_ref, bix);
}
case c3__hold: p_ref = u3t(ref);
case c3__hold:
case c3__holt:
{
u3_noun rep = u3qfu_repo(van, ref);
u3_noun ret = _crop_dext(van, sut, rep, bix);

1
jets/f/ut_fire.c
View File

@ -147,6 +147,7 @@
{
u3_noun vet = u3r_at(u3qfu_van_vet, van);
c3_assert(!"not live");
{
if ( (c3y == u3du(hag)) && (u3_nul == u3t(hag)) ) {
u3_noun i_hag = u3h(hag);

5
jets/f/ut_fish.c
View File

@ -118,7 +118,8 @@
p_sut = u3t(sut);
return _fish_frog(van, p_sut, axe, vit);
}
case c3__hold: {
case c3__hold:
case c3__holt: {
p_sut = u3t(sut);
{
if ( (c3y == u3qdi_has(vit, sut)) ) {
@ -132,7 +133,7 @@
return u3m_error("fish-loop");
} else {
u3_noun zoc = u3qdi_put(vit, sut);
u3_noun fop = u3qfu_rest(van, sut, p_sut);
u3_noun fop = u3qfu_repo(van, sut);
u3_noun pro = _fish_in(van, fop, axe, zoc);
u3z(fop);

3
jets/f/ut_fuse.c
View File

@ -136,7 +136,8 @@
{
return u3kf_frog(_fuse_in_frog(van, p_sut, ref, bix));
}
case c3__hold: p_sut = u3t(sut);
case c3__hold:
case c3__holt:
{
u3_noun hud = u3nc(u3k(sut), u3k(ref));

6
jets/f/ut_nest.c
View File

@ -279,7 +279,8 @@
}
return c3n;
}
case c3__hold: p_sut = u3t(sut);
case c3__hold:
case c3__holt:
{
if ( c3y == u3qdi_has(seg, sut) ) {
return c3n;
@ -416,7 +417,8 @@
}
return c3y;
}
case c3__hold: {
case c3__hold:
case c3__holt: {
if ( c3y == u3qdi_has(reg, ref) ) {
return c3y;
}

4
jets/f/ut_peek.c
View File

@ -117,8 +117,8 @@
return u3kf_frog(_peek_frog(van, p_sut, way, axe, gil));
}
case c3__hold: {
p_sut = u3t(sut);
case c3__hold:
case c3__holt: {
if ( (c3y == u3qdi_has(gil, sut)) ) {
return c3__void;
}

15
jets/f/ut_repo.c
View File

@ -40,9 +40,18 @@
return u3k(q_sut);
}
}
case c3__hold: {
p_sut = u3t(sut);
return u3qfu_rest(van, sut, p_sut);
case c3__hold:
case c3__holt: {
if ( c3n == u3r_cell(u3t(sut), &p_sut, &q_sut)) {
return u3m_bail(c3__fail);
} else {
u3_noun old = u3nc(u3nc(u3k(p_sut), u3k(q_sut)), u3_nul);
u3_noun ret;
ret = u3qfu_rest(van, sut, old);
u3z(old);
return ret;
}
}
}
}

1
jets/f/ut_wrap.c
View File

@ -53,6 +53,7 @@
return u3kf_frog(_wrap_frog(van, p_sut, yoz));
}
case c3__hold:
case c3__holt:
{
u3_noun fop = u3qfu_repo(van, sut);
u3_noun pro = _cqfu_wrap(van, fop, yoz);