repo.or.cz
/
io
/
quag.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Sample: Fixing Control.io
[io/quag.git]
/
samples
/
misc
/
Control.io
blob
048c64a1656007dc7558e2f22c4da46324bb3354
1
//
example of implementing control structures
2
3
myif
:=
method
(
condition
,
4
index
:=
if
(
condition
,
1
,
2
)
5
call
evalArgAt
(
index
)
6
)
7
8
myif
(
19
>
5
,
9
writeln
(
"19 > 5. Correct."
)
10
,
11
writeln
(
"19 > 5. Incorrect."
)
12
)
13