urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-17 07:14:52 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fully onto frog. Next, delete old %fork.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-10 21:08:03 -08:00
parent 7447cc418b
commit 4f31be75db
8 changed files with 24 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
include/jets/k.h
View File

@ -89,8 +89,12 @@
u3_atom
u3ke_jam(u3_noun a);
/* u3ke_trip: atom to tape.
/* u3ke_trip(): atom to tape.
*/
u3_noun
u3ke_trip(u3_noun a);
/* u3kf_frog(): build %fork span.
*/
u3_noun
u3kf_frog(u3_noun yed);

9
jets/f/fork.c
View File

@ -107,3 +107,12 @@
return u3nc(c3__frog, u3kdi_tap(lez, u3_nul));
}
}
u3_noun
u3kf_frog(u3_noun yed)
{
u3_noun ret = u3qf_frog(yed);
u3z(yed);
return ret;
}

4
jets/f/ut_crop.c
View File

@ -3,7 +3,7 @@
*/
#include "all.h"
#undef FROG
#define FROG
/* logic
*/
@ -168,7 +168,7 @@
#ifdef FROG
case c3__frog: p_sut = u3t(sut);
{
return u3qf_frog(_crop_dext_frog(van, p_sut, ref, bix));
return u3kf_frog(_crop_dext_frog(van, p_sut, ref, bix));
}
#else
case c3__frog: p_sut = u3t(sut);

2
jets/f/ut_fish.c
View File

@ -3,7 +3,7 @@
*/
#include "all.h"
#undef FROG
#define FROG
/* functions
*/

4
jets/f/ut_fuse.c
View File

@ -3,7 +3,7 @@
*/
#include "all.h"
#undef FROG
#define FROG
/* logic
*/
@ -149,7 +149,7 @@
#ifdef FROG
case c3__frog: p_sut = u3t(sut);
{
return _fuse_in_frog(van, p_sut, ref, bix);
return u3kf_frog(_fuse_in_frog(van, p_sut, ref, bix));
}
#else
case c3__frog: p_sut = u3t(sut);

2
jets/f/ut_nest.c
View File

@ -3,7 +3,7 @@
*/
#include "all.h"
#undef FROG
#define FROG
/* logic
*/

4
jets/f/ut_peek.c
View File

@ -3,7 +3,7 @@
*/
#include "all.h"
#undef FROG
#define FROG
/* logic
*/
@ -134,7 +134,7 @@
case c3__frog: {
p_sut = u3t(sut);
return _peek_frog(van, p_sut, way, axe, gil);
return u3kf_frog(_peek_frog(van, p_sut, way, axe, gil));
}
#else
case c3__frog: p_sut = u3t(sut);

4
jets/f/ut_wrap.c
View File

@ -3,7 +3,7 @@
*/
#include "all.h"
#undef FROG
#define FROG
static u3_noun _cqfu_wrap(u3_noun, u3_noun, u3_noun);
@ -60,7 +60,7 @@
#ifdef FROG
case c3__frog: p_sut = u3t(sut);
{
return u3qf_frog(_wrap_frog(van, p_sut, yoz));
return u3kf_frog(_wrap_frog(van, p_sut, yoz));
}
#else
case c3__frog: p_sut = u3t(sut);