Content deleted Content added
→Vending machine: comments |
→Vending machine: name clash correction |
||
Line 53:
match
-- * wildcards for unfilled outputs, and unconsumed inputs
(
-> let v’ = incrementCredit
-- time bounding (''within x time-unit'') raises TimeOut ()
| ( *, BCoffee, v) {- ''join-pattern
-> (vend Coffee 10 v) within 30s
| ( *, BTea, v) -> (vend Tea 5 v) within 30s
|