forked from MightyPork/crsn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
685 B
49 lines
685 B
4 years ago
|
(
|
||
|
|
(call slash 1)
|
||
|
|
(cmp res0 1 (ne? (fault)))
|
||
|
|
|
||
|
|
(call named 2)
|
||
|
|
(cmp res0 2 (ne? (fault)))
|
||
|
|
|
||
|
|
(call both 3)
|
||
|
|
(cmp res0 3 (ne? (fault)))
|
||
|
|
|
||
|
|
(call slash 1 2)
|
||
|
|
(cmp res0 1 (ne? (fault)))
|
||
|
|
(cmp res1 2 (ne? (fault)))
|
||
|
|
|
||
|
|
(call named 2 3)
|
||
|
|
(cmp res0 2 (ne? (fault)))
|
||
|
|
(cmp res1 3 (ne? (fault)))
|
||
|
|
|
||
|
|
(call both 3 4)
|
||
|
|
(cmp res0 3 (ne? (fault)))
|
||
|
|
(cmp res1 4 (ne? (fault)))
|
||
|
|
|
||
|
|
(halt)
|
||
|
|
|
||
|
|
(proc slash/1
|
||
|
|
(ret arg0)
|
||
|
|
)
|
||
|
|
|
||
|
|
(proc slash/2
|
||
|
|
(ret arg0 arg1)
|
||
|
|
)
|
||
|
|
|
||
|
|
(proc named a
|
||
|
|
(ret a)
|
||
|
|
)
|
||
|
|
|
||
|
|
(proc named a b
|
||
|
|
(ret a b)
|
||
|
|
)
|
||
|
|
|
||
|
|
(proc both/1 a
|
||
|
|
(ret a)
|
||
|
|
)
|
||
|
|
|
||
|
|
(proc both/2 a b
|
||
|
|
(ret a b)
|
||
|
|
)
|
||
|
|
)
|