cec5ef31b3
Top-level and linux/ now have separate vocabulary.md files.
12 lines
259 B
Forth
12 lines
259 B
Forth
# Some helpers for Mu tests.
|
|
|
|
fn check val: boolean, msg: (addr array byte) {
|
|
var tmp/eax: int <- copy val
|
|
check-ints-equal tmp, 1, msg
|
|
}
|
|
|
|
fn check-not val: boolean, msg: (addr array byte) {
|
|
var tmp/eax: int <- copy val
|
|
check-ints-equal tmp, 0, msg
|
|
}
|