From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/examples/scope.frt | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 amforth-6.5/examples/scope.frt (limited to 'amforth-6.5/examples/scope.frt') diff --git a/amforth-6.5/examples/scope.frt b/amforth-6.5/examples/scope.frt deleted file mode 100644 index d6a5d31..0000000 --- a/amforth-6.5/examples/scope.frt +++ /dev/null @@ -1,21 +0,0 @@ -\ The following example shows how to create a library of words under a special -\ wordlist (can_lib). This example also shows how to chain scope calls safely. - -wordlist constant can_lib - -get-order 1+ can_lib swap set-order \ can_lib would be searched first - -: can_scope ( addr len -- addr' len' wid ) - 2dup - 4 > if \ name length check - s" can_" tuck icompare if \ name prefix check - 4 /string \ drop prefix from created word - can_lib exit - then - else - drop - then - [ ' wlscope defer@ ] literal execute -; - -' can_scope is wlscope -- cgit v1.2.3