64 lines
1.3 KiB
Plaintext
64 lines
1.3 KiB
Plaintext
initialise-binding finalise-failing scope
|
|
(collateral
|
|
(bind
|
|
("x",
|
|
allocate-initialised-variable
|
|
(integers,
|
|
0)),
|
|
bind
|
|
("y",
|
|
allocate-initialised-variable
|
|
(integers,
|
|
0))),
|
|
sequential
|
|
(assign
|
|
(bound
|
|
("x"),
|
|
decimal-natural
|
|
("10")),
|
|
assign
|
|
(bound
|
|
("y"),
|
|
checked int-mod
|
|
(assigned
|
|
(bound
|
|
("x")),
|
|
int-val [: 0 :])),
|
|
print
|
|
(assigned
|
|
(bound
|
|
("x"))),
|
|
print
|
|
(assigned
|
|
(bound
|
|
("y"))),
|
|
print
|
|
(is-equal
|
|
(assigned
|
|
(bound
|
|
("x")),
|
|
decimal-natural
|
|
("1"))),
|
|
print
|
|
(is-equal
|
|
(assigned
|
|
(bound
|
|
("x")),
|
|
assigned
|
|
(bound
|
|
("y")))),
|
|
print
|
|
(is-less
|
|
(assigned
|
|
(bound
|
|
("x")),
|
|
assigned
|
|
(bound
|
|
("y")))),
|
|
print
|
|
(int-add
|
|
(assigned
|
|
(bound
|
|
("x")),
|
|
decimal-natural
|
|
("2"))))) |