From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/common/lib/forth2012/tools/defined.frt | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 amforth-6.5/common/lib/forth2012/tools/defined.frt (limited to 'amforth-6.5/common/lib/forth2012/tools/defined.frt') diff --git a/amforth-6.5/common/lib/forth2012/tools/defined.frt b/amforth-6.5/common/lib/forth2012/tools/defined.frt new file mode 100644 index 0000000..cef7e78 --- /dev/null +++ b/amforth-6.5/common/lib/forth2012/tools/defined.frt @@ -0,0 +1,10 @@ + +\ http://www.forth200x.org/defined.html +\ adapted to non-counted strings + +: [defined] parse-name find-name dup if swap drop then ; immediate +: [undefined] postpone [defined] 0= ; immediate + +\ ... and without postpone (Enoch, Feb-2013) +\ : [defined] parse-name find-name if drop -1 else 0 then ; immediate +\ : [undefined] parse-name find-name if drop 0 else -1 then ; immediate -- cgit v1.2.3