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/common/lib/forth2012/blocks/load.frt | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 amforth-6.5/common/lib/forth2012/blocks/load.frt (limited to 'amforth-6.5/common/lib/forth2012/blocks/load.frt') diff --git a/amforth-6.5/common/lib/forth2012/blocks/load.frt b/amforth-6.5/common/lib/forth2012/blocks/load.frt deleted file mode 100644 index 55cd14b..0000000 --- a/amforth-6.5/common/lib/forth2012/blocks/load.frt +++ /dev/null @@ -1,20 +0,0 @@ -\ load a block and evaluate its content -\ -: source-block1 - blk1-buffer blocksize -; - -: load ( i*x n -- j*y ) - ['] source defer@ >r >in @ >r - 0 >in ! - buffer drop - ['] source-block1 is source - ['] interpret catch - r> >in ! r> is source - throw -; - - -: thru ( i*x n1 n2 -- j*y ) - 1+ swap ?do i load loop -; -- cgit v1.2.3