diff options
Diffstat (limited to 'counters.mu')
| -rw-r--r-- | counters.mu | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/counters.mu b/counters.mu index be1f098a..8a4da073 100644 --- a/counters.mu +++ b/counters.mu @@ -1,18 +1,18 @@ # example program: maintain multiple counters with isolated lexical scopes # (spaces) -recipe new-counter [ - default-space:address:array:location <- new location:type, 30 - n:number <- next-ingredient - reply default-space +recipe new-counter n:number -> default-space:address:array:location [ + default-space <- new location:type, 30 + load-ingredients + reply ] -recipe increment-counter [ +recipe increment-counter outer:address:array:location/names:new-counter, x:number -> n:number/space:1 [ local-scope - 0:address:array:location/names:new-counter <- next-ingredient # setup outer space; it *must* come from 'new-counter' - x:number <- next-ingredient + load-ingredients + 0:address:array:location/names:new-counter <- copy outer # setup outer space; it *must* come from 'new-counter' n:number/space:1 <- add n:number/space:1, x - reply n:number/space:1 + reply n/space:1 ] recipe main [ |