From 5736ea6e0075917b1d56fafbdbd99e8377b4b6fa Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Wed, 26 Nov 2014 11:00:50 -0800 Subject: [PATCH] Fix handling of .^ errors. --- i/n/j.h | 3 +-- n/n.c | 3 ++- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/i/n/j.h b/i/n/j.h index 8dc6620049..6ba6825d4f 100644 --- a/i/n/j.h +++ b/i/n/j.h @@ -109,8 +109,7 @@ ** is no kick, TRANSFERRED if one. */ u3_weak - u3j_kick(u3_noun cor, - u3_noun axe); + u3j_kick(u3_noun cor, u3_noun axe); /* u3j_kink(): kick either by jet or by nock. */ diff --git a/n/n.c b/n/n.c index d0c79f1277..8bf8510545 100644 --- a/n/n.c +++ b/n/n.c @@ -307,7 +307,7 @@ u3n_nock_on(u3_noun bus, u3_noun fol) case 11: { u3_noun gof = u3n_nock_on(bus, u3k(gal)); - u3_noun val = u3m_soft_esc(gof); + u3_noun val = u3m_soft_esc(u3k(gof)); if ( !_(u3du(val)) ) { u3m_bail(u3nt(1, gof, 0)); @@ -315,6 +315,7 @@ u3n_nock_on(u3_noun bus, u3_noun fol) else { u3_noun pro; + u3z(gof); u3z(fol); pro = u3k(u3t(val)); u3z(val);