1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
\ Test whether too-large "Case" statement messes up the Tokenizer.
\ Body generated by script
fcode-version2
headers
: too-large-case ( n -- )
." Let's give it a large back-reference too."
begin ." We've just begun"
fload TooLargeCase_body.fth
." And here we are!"
exit
." Well, we needed some way out!"
again ." Back to the fuchsia."
;
\ Let's make a small jump, just to see what normal looks like
: control-example
." Small non-loop"
begin ." Here's the beguine"
." and the way out"
exit
." and the jump back"
again ." Never do this"
;
fcode-end
|
