From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/common/lib/wordlist-tools.frt | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 amforth-6.5/common/lib/wordlist-tools.frt (limited to 'amforth-6.5/common/lib/wordlist-tools.frt') diff --git a/amforth-6.5/common/lib/wordlist-tools.frt b/amforth-6.5/common/lib/wordlist-tools.frt new file mode 100644 index 0000000..43a5f63 --- /dev/null +++ b/amforth-6.5/common/lib/wordlist-tools.frt @@ -0,0 +1,18 @@ +\ Message-ID: +\ From: "David N. Williams" +\ Newsgroups: comp.lang.forth +\ Subject: >ORDER ORDER> ORDER@ +\ Date: Fri, 22 Jan 2010 11:41:50 -0500 + + +: >order ( wid -- order: wid ) + >r get-order r> swap 1+ set-order ; + +: order> ( order: wid -- s: wid ) + get-order swap >r 1- set-order r> ; + +: order@ ( order: wid -- s: wid ) + get-order over >r 0 ?do drop loop r> ; +\ mlg's definition: +\ : order@ ( -- wid ) order> dup >order ; + -- cgit v1.2.3