Croissant Runtime
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.
crsn/examples/test_arities.csn

49 lines
685 B

(
(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)
)
)