aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/chains-wordlist.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/chains-wordlist.frt')
-rw-r--r--amforth-6.5/common/lib/chains-wordlist.frt31
1 files changed, 0 insertions, 31 deletions
diff --git a/amforth-6.5/common/lib/chains-wordlist.frt b/amforth-6.5/common/lib/chains-wordlist.frt
deleted file mode 100644
index f79f117..0000000
--- a/amforth-6.5/common/lib/chains-wordlist.frt
+++ /dev/null
@@ -1,31 +0,0 @@
-\ chains: execute a list of XT when calling the
-\ anchor. Elements can be pre- and ap-pended.
-\ no particular stack effect enforcment
-
-\ chain.run ( chainid -- i*x )
-\ chain ( -- chainid ) \ create an unnamed chain
-\ chain: ( "name" -- ) \ create a named chain
-
-\ implementation uses wordlists
-
-\ #require name2interpret.frt
-\ #require quotations.frt
-\ #require builds.frt
-
-\ create an unnamed chain
-: chain wordlist ; \ trivial
-
-: chain.run ( chainid -- i*x )
- [: name>interpret execute true ;]
- swap traverse-wordlist
-;
-
-\ create a named chain with an action
-: chain: <builds 0 chain dup , !e does> @i chain.run ;
-\ for MSP430 use instead
-\ : chain: <builds 0 chain dup , ! does> @i chain.run ;
-
-\ get the chainid from its name
-: chain>id ( "name" -- chainid )
- ' >body @i
-;