mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
28 lines
326 B
Scheme
28 lines
326 B
Scheme
;-*-Scheme-*-
|
|
|
|
(test-setup 4 #f)
|
|
|
|
(let ((total 0))
|
|
(if (true-func)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
|
|
(if (false-func)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
|
|
(if (not (true-func))
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
|
|
(if (not (false-func))
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
total
|
|
)
|
|
|