From: David Given <dg@cowlark.com>
Date: Mon, 24 Aug 2015 21:10:50 +0000 (+0200)
Subject: Remember to honour the smudge bit.
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=1603ae9ab48788000826a2478eb16e421b6b81ec;p=FUZIX.git

Remember to honour the smudge bit.

All tests pass!
---

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);