From f1171c656cbba01994eb203e7e6d1efba8f07e75 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 9 Apr 2020 11:24:43 -0400
Subject: [PATCH] xcomp: make (xfind) use _find instead of (find)

---
 forth/xcomp.fs | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/forth/xcomp.fs b/forth/xcomp.fs
index 332e6ee..a3f92a8 100644
--- a/forth/xcomp.fs
+++ b/forth/xcomp.fs
@@ -43,14 +43,11 @@ VARIABLE XOFF
 ( w -- a f xa xf )
 : (xfind)
     DUP                     ( w w )
-    (find)                  ( w a f )
+    CURRENT @ SWAP          ( w cur w )
+    _find                   ( w a f )
     ROT                     ( a f w )
-    CURRENT @               ( a f w cur )
-    XCURRENT @ CURRENT !
-    SWAP                    ( a f cur w )
-    (find)                  ( a f cur xa xf )
-    ROT                     ( a f xa xf cur )
-    CURRENT !               ( a f xa xf )
+    XCURRENT @ SWAP         ( a f xcur w )
+    _find                   ( a f xa xf )
 ;
 
 : XCODE