From 2e92e0bb864e04254f50b789a61f6e47308a80ec Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Fri, 3 Oct 2014 11:24:41 -0700 Subject: [PATCH] Just stashin'. --- g/m.c | 5 +++++ g/n.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/g/m.c b/g/m.c index c293d810c4..fe80f6c726 100644 --- a/g/m.c +++ b/g/m.c @@ -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(); diff --git a/g/n.c b/g/n.c index d4b8c7f7d2..9663d10a79 100644 --- a/g/n.c +++ b/g/n.c @@ -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)); }