From da312e375eb0a0758a4dd72e287d3aba86c04d99 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 10 Jun 2017 23:18:31 +0200 Subject: Add FIRST & THIRD almost FORTH --- buzzard/demo6.th | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 buzzard/demo6.th (limited to 'buzzard/demo6.th') diff --git a/buzzard/demo6.th b/buzzard/demo6.th new file mode 100644 index 0000000..75ec667 --- /dev/null +++ b/buzzard/demo6.th @@ -0,0 +1,18 @@ +: foobar + 2 + [ 2 , ( '[' turns the compiler off, allowing us to execute code ) + 1 1 1 + + , ( and we compile in-line a 2 and a three ) + ( the '2' means 'push the number following this' ) + ] + + . cr +; + +foobar + +: 'foobar ' foobar ; ( ' can only be run inside the compiler ) + ( ' leaves the address of the following word + on the stack ) + +'foobar . cr + +'foobar dump -- cgit v1.2.3