aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/in.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/in.frt')
-rw-r--r--amforth-6.5/common/lib/in.frt36
1 files changed, 0 insertions, 36 deletions
diff --git a/amforth-6.5/common/lib/in.frt b/amforth-6.5/common/lib/in.frt
deleted file mode 100644
index b2af5f3..0000000
--- a/amforth-6.5/common/lib/in.frt
+++ /dev/null
@@ -1,36 +0,0 @@
-\ invented at the Euro Forth 2016 to
-\ define a word in a vocabulary different
-\ to CURRENT
-
-\ #require also.frt
-\ #require previous.frt
-\ #require definitions.frt
-
-
-: in ( "voc" "defining-word" -- )
- get-current >r also ' execute
- definitions previous ' execute r> set-current
-;
-
-\ use as follows, require vocabulary.frt first
-\ vocabulary gui
-\ in gui : foo ( .. -- .. ) ... ;
-\ in gui variable bar
-\ in gui defer baz
-\ show what's in gui
-\ also gui words previous
-\ remeber: gui is a vocabulary, not a wordlist
-\
-\ Alternative implementation uses wordlist id's
-\ instead of vocabularies. All the #require
-\ lines can be omitted.
-\
-\ : IN ( wid "action" -- )
-\ get-current >r set-current ' execute r> set-current ;
-\
-\ use it like
-\ wordlist constant gui
-\ ... same as above
-\ show the content of gui
-\ gui show-wordlist
-\