aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/examples/forward-declarations.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/examples/forward-declarations.frt')
-rw-r--r--amforth-6.5/examples/forward-declarations.frt23
1 files changed, 0 insertions, 23 deletions
diff --git a/amforth-6.5/examples/forward-declarations.frt b/amforth-6.5/examples/forward-declarations.frt
deleted file mode 100644
index 274edf4..0000000
--- a/amforth-6.5/examples/forward-declarations.frt
+++ /dev/null
@@ -1,23 +0,0 @@
-: forward:
- dp
- create
- ,
- \ save more information?
- does>
- \ get the current name and
- \ lookup the dictionary. get the
- \ XT and replace the dictionary entry in the
- \ *caller* with it. After that execute it too
- \ next code is executed only once if successful
- dup 1- swap @i here iplace here count ( copy to temporary ram)
- find-name if \ unless some wordlist voodoo is in place...
- swap over = abort" found only forward declaration."
- dup r@ 1- !i execute
- else
- \ can only happen if search wordlist has changed
- true abort" unresolved forward declaration"
- then
-;
-
-
-