aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/chain-stack-test.frt
blob: 5a0f2503c12ec822c98c4ca3bbbd6664d0f062b6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
\ demonstate the chains with a configuration stack

\ first create and allocate a chain storage
4 chain: kette

\ now populate the chain with some execution
\ tokens.
' ver ' cr ' ver 3 chain>id kette set-stack

\ there is no easy way to show the content of
\ a stack

\ now execute the stack. The TOS element is
\ called first

kette \ emits the version string twice and a newline between them