diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-15 14:58:58 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-15 14:58:58 -0800 |
commit | ea36397b5010be4d79dcb07be5ed2b3b84217040 (patch) | |
tree | cce5cced1492a792eb814e7760ef72fa0e740080 /mu.arc | |
parent | 44de0079e5a5a3c46370fd70af790beb886c052e (diff) | |
download | mu-ea36397b5010be4d79dcb07be5ed2b3b84217040.tar.gz |
267 - more intuitive channel capacity
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index 3bffa39f..03df9f05 100644 --- a/mu.arc +++ b/mu.arc @@ -853,6 +853,7 @@ (init-fn new-channel ((default-scope scope-address) <- new (scope literal) (30 literal)) ((capacity integer) <- arg) + ((capacity integer) <- add (capacity integer) (1 literal)) ; unused slot for full? below ((buffer-address tagged-value-array-address) <- new (tagged-value-array literal) (capacity integer)) ((result channel-address) <- new (channel literal)) ((full integer-address) <- get-address (result channel-address deref) (first-full offset)) |