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

Just stashin'.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-10-03 11:24:41 -07:00
parent 18ff192e3e
commit 2e92e0bb86
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
g/m.c
View File

@ -613,6 +613,9 @@ u3_cm_soft_esc(u3_noun sam)
{
c3_assert(0 != u3R->ski.flu);
fly = u3h(u3R->ski.flu);
u3_cm_p("esc: sam", sam);
// u3_cm_p("esc: fly", fly);
}
/* Record the cap, and leap.
@ -635,6 +638,8 @@ u3_cm_soft_esc(u3_noun sam)
if ( 0 == (why = u3_cm_trap()) ) {
pro = u3_cn_slam_on(fly, sam);
u3_cm_p("esc: pro", pro);
/* Fall back to the old road, leaving temporary memory intact.
*/
u3_cm_fall();

2
g/n.c
View File

@ -299,7 +299,7 @@ u3_cn_nock_on(u3_noun bus, u3_noun fol)
case 11: {
u3_noun gof = u3_cn_nock_on(bus, u3k(gal));
u3_noun val = u3_cm_soft_esc(u3nc(u3k(gof), 0));
if ( u3_ne(u3du(val)) ) {
u3_cm_bail(u3nt(1, gof, 0));
}