collapseos/tests/forth/test_flow.fs

: foo
    CASE
        'X' OF 42 ENDOF
        0x12 OF 43 ENDOF
        255 OF 44 ENDOF
        1+
    ENDCASE
;

'X' foo 42 #eq
0x12 foo 43 #eq
255 foo 44 #eq
254 foo 255 #eq
'S S0 #eq
Add CASE..OF words 2020-04-17 05:07:31 +10:00			`: foo`
			`CASE`
			`'X' OF 42 ENDOF`
			`0x12 OF 43 ENDOF`
			`255 OF 44 ENDOF`
Give CASE's default branch access to its input value ref #97 2020-04-28 10:44:21 +10:00			`1+`
Add CASE..OF words 2020-04-17 05:07:31 +10:00			`ENDCASE`
			`;`

			`'X' foo 42 #eq`
			`0x12 foo 43 #eq`
			`255 foo 44 #eq`
Give CASE's default branch access to its input value ref #97 2020-04-28 10:44:21 +10:00			`254 foo 255 #eq`
			`'S S0 #eq`