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/quotations.frt | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 amforth-6.5/common/lib/quotations.frt (limited to 'amforth-6.5/common/lib/quotations.frt') diff --git a/amforth-6.5/common/lib/quotations.frt b/amforth-6.5/common/lib/quotations.frt deleted file mode 100644 index 7f7659b..0000000 --- a/amforth-6.5/common/lib/quotations.frt +++ /dev/null @@ -1,26 +0,0 @@ -\ anonymous definitions in a definition -\ typical usage -\ : foo ... [: some words ;] ... ; -\ -\ is equivalent to -\ -\ :noname some words ; Constant #temp# -\ : foo ... #temp# ... ; -\ -\ #require 2-fetch.frt -\ #require 2-store.frt - -: [: ( -- quotation-sys ) - postpone ahead - latest @ newest 2@ \ save definition state - :noname \ defines quotation-sys as ( -- latest newest XT ) ( 4 cells) -; immediate - -: ;] ( compile-time: quotation-sys -- ; run-time: -- xt ) - postpone ; >r - newest 2! latest ! \ restore definiion state - postpone then - r> - postpone literal - ] -; immediate -- cgit v1.2.3