aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core/find.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/forth2012/core/find.frt')
-rw-r--r--amforth-6.5/common/lib/forth2012/core/find.frt21
1 files changed, 0 insertions, 21 deletions
diff --git a/amforth-6.5/common/lib/forth2012/core/find.frt b/amforth-6.5/common/lib/forth2012/core/find.frt
deleted file mode 100644
index a289cc8..0000000
--- a/amforth-6.5/common/lib/forth2012/core/find.frt
+++ /dev/null
@@ -1,21 +0,0 @@
-\ #require count.frt
-
-: find ( addr -- addr 0 | xt -1 | xt 1 )
- dup count find-xt dup
- if rot drop then
-;
-
-\ \ find-xt is using the order stack
-\ \ with map-stack as iterator.
-\ : (find-xt) ( addr len wid -- addr len 0 | xt +/-1 -1 )
-\ >r 2dup r> search-wordlist
-\ dup if
-\ >r nip nip r> -1
-\ then
-\ ;
-\
-\ : find-xt
-\ ['] (find-xt) 'ORDER map-stack
-\ 0= if 2drop 0 then
-\ ;
-