Hi Hack archives Developers,
Please check for typo in the URL.
The file is accessable, another user
has managed to download it from the
link I provided.
Files are now available on github
Here's a code example, as asked for. It is used to test the begin..again construct, letting the device LED, assuming there is one, flash. expected and check come from the included run time library, used to check expected result, and at the end light a green or red LED, according the test outcome. Also noteworthy is that the beginagain test word is forward referenced.
$deadbeef constant canary 1 constant black -1 constant white : main ( -- ) beginagain canary expected check ; : beginagain canary 5 begin white led black led 1- ?dup 0= ?exit \ breakout condition again ;