From 1603ae9ab48788000826a2478eb16e421b6b81ec Mon Sep 17 00:00:00 2001 From: David Given Date: Mon, 24 Aug 2015 23:10:50 +0200 Subject: [PATCH] Remember to honour the smudge bit. All tests pass! --- Applications/util/fforth.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Applications/util/fforth.c b/Applications/util/fforth.c index 768ea50e..a559d5be 100644 --- a/Applications/util/fforth.c +++ b/Applications/util/fforth.c @@ -769,7 +769,9 @@ static void find_cb(cdefn_t* w) while (current) { - if (current->name && fstreq(name, current->name)) + if (current->name + && !(current->name->len & FL_SMUDGE) + && fstreq(name, current->name)) { dpush((cell_t) current); dpush((current->name->len & FL_IMMEDIATE) ? 1 : -1); -- 2.34.1