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/tests/quotations-test.frt | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 amforth-6.5/tests/quotations-test.frt (limited to 'amforth-6.5/tests/quotations-test.frt') diff --git a/amforth-6.5/tests/quotations-test.frt b/amforth-6.5/tests/quotations-test.frt new file mode 100644 index 0000000..26057a8 --- /dev/null +++ b/amforth-6.5/tests/quotations-test.frt @@ -0,0 +1,19 @@ +\ anonymous definitions in a definition + +: if-else ( ... f xt1 xt2 -- ... ) +\ Postscript-style if-else + rot if + drop + else + nip + then + execute ; + +: test ( f -- ) + [: ." true" ;] + [: ." false" ;] + if-else ; + +\ 1 test cr \ writes "true" +\ 0 test cr \ writes "false" + -- cgit v1.2.3