about summary refs log tree commit diff stats
path: root/cpp
diff options
context:
space:
mode:
Diffstat (limited to 'cpp')
-rw-r--r--cpp/.traces/channel333
-rw-r--r--cpp/.traces/channel-initialization92
-rw-r--r--cpp/.traces/channel-new-empty-not-full186
-rw-r--r--cpp/.traces/channel-read-increments-full362
-rw-r--r--cpp/.traces/channel-read-not-full458
-rw-r--r--cpp/.traces/channel-wrap670
-rw-r--r--cpp/.traces/channel-write-full346
-rw-r--r--cpp/.traces/channel-write-increments-free250
-rw-r--r--cpp/.traces/channel-write-not-empty344
-rw-r--r--cpp/061channel.mu266
10 files changed, 3307 insertions, 0 deletions
diff --git a/cpp/.traces/channel b/cpp/.traces/channel
new file mode 100644
index 00000000..4a3b4c1c
--- /dev/null
+++ b/cpp/.traces/channel
@@ -0,0 +1,333 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "3", value: 0, type: 0, properties: ["3": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 111
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+after-brace/0: recipe test-channel
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: read ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel
+run/0: instruction test-channel/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 3
+mem/0: storing 3 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 3
+run/0: ingredient 1 is 1
+run/0: product 0 is 4
+mem/0: storing 4 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 4
+mem/0: array size is 4
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1037
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1039
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1040
+run/0: instruction write/4
+mem/0: location 1039 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1067
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1069
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1070
+run/0: instruction channel-full?/5
+mem/0: location 1069 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1097
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1099
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1099 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1100
+run/0: instruction channel-capacity/3
+mem/0: location 1100 is 1033
+mem/0: storing 4 in location 1101
+run/0: instruction channel-capacity/4
+mem/0: location 1101 is 4
+run/0: result 0 is 4
+mem/0: storing 4 in location 1071
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 1
+run/0: ingredient 1 is len
+mem/0: location 1071 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/7
+mem/0: location 1072 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1073
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1073 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1070 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1074
+run/0: instruction channel-full?/12
+mem/0: location 1074 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1041
+run/0: instruction write/5
+mem/0: location 1041 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1043
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1044
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1043 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1045
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1040 is 34
+mem/0: location 1045 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1044 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1043 is 1033
+mem/0: storing 4 in location 1046
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1046 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1047
+run/0: instruction write/17
+mem/0: location 1047 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1039 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel/2
+mem/0: location 1 is 1030
+run/0: instruction read/0
+mem/0: array size is 30
+mem/0: new alloc: 1127
+run/0: instruction read/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1129
+run/0: instruction read/3
+mem/0: location 1129 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1157
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1159
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1159 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1160
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1159 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1161
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1160 is 0
+run/0: ingredient 1 is free
+mem/0: location 1161 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1162
+run/0: instruction channel-empty?/5
+mem/0: location 1162 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1130
+run/0: instruction read/4
+mem/0: location 1130 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 7
+run/0: instruction read/8
+run/0: ingredient 0 is chan
+mem/0: location 1129 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1132
+run/0: instruction read/9
+run/0: ingredient 0 is chan
+mem/0: location 1129 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1133
+run/0: instruction read/10
+run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
+mem/0: location 1133 is 1033
+run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
+mem/0: location 1132 is 1030
+mem/0: location 1030 is 0
+run/0: address to copy is 1034
+run/0: its type is 1
+mem/0: location 1034 is 34
+run/0: product 0 is 34
+mem/0: storing 34 in location 1134
+run/0: instruction read/11
+run/0: ingredient 0 is full
+mem/0: location 1132 is 1030
+mem/0: location 1030 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1132 is 1030
+mem/0: storing 1 in location 1030
+run/0: instruction read/13
+mem/0: location 1133 is 1033
+mem/0: storing 4 in location 1135
+run/0: instruction read/14
+run/0: ingredient 0 is full
+mem/0: location 1132 is 1030
+mem/0: location 1030 is 1
+run/0: ingredient 1 is len
+mem/0: location 1135 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1136
+run/0: instruction read/15
+mem/0: location 1136 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 17
+run/0: instruction read/18
+mem/0: location 1134 is 34
+mem/0: location 1129 is 1030
+run/0: result 0 is 34
+mem/0: storing 34 in location 2
+run/0: result 1 is 1030
+mem/0: storing 1030 in location 1
diff --git a/cpp/.traces/channel-initialization b/cpp/.traces/channel-initialization
new file mode 100644
index 00000000..764f83ab
--- /dev/null
+++ b/cpp/.traces/channel-initialization
@@ -0,0 +1,92 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "3", value: 0, type: 0, properties: ["3": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-free", value: 0, type: 0, properties: ["first-free": "offset"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+name/0: element first-full of type channel is at offset 0
+name/0: element first-free of type channel is at offset 1
+after-brace/0: recipe test-channel-initialization
+after-brace/0: init-channel ...
+after-brace/0: get ...
+after-brace/0: get ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-initialization
+run/0: instruction test-channel-initialization/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 3
+mem/0: storing 3 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 3
+run/0: ingredient 1 is 1
+run/0: product 0 is 4
+mem/0: storing 4 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 4
+mem/0: array size is 4
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-initialization/1
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 2
+run/0: instruction test-channel-initialization/2
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 3
diff --git a/cpp/.traces/channel-new-empty-not-full b/cpp/.traces/channel-new-empty-not-full
new file mode 100644
index 00000000..94914ebe
--- /dev/null
+++ b/cpp/.traces/channel-new-empty-not-full
@@ -0,0 +1,186 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "3", value: 0, type: 0, properties: ["3": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 112
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 110
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+after-brace/0: recipe test-channel-new-empty-not-full
+after-brace/0: init-channel ...
+after-brace/0: channel-empty? ...
+after-brace/0: channel-full? ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-new-empty-not-full
+run/0: instruction test-channel-new-empty-not-full/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 3
+mem/0: storing 3 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 3
+run/0: ingredient 1 is 1
+run/0: product 0 is 4
+mem/0: storing 4 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 4
+mem/0: array size is 4
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-new-empty-not-full/1
+mem/0: location 1 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1037
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1039
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1040
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1041
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1040 is 0
+run/0: ingredient 1 is free
+mem/0: location 1041 is 0
+run/0: product 0 is 1
+mem/0: storing 1 in location 1042
+run/0: instruction channel-empty?/5
+mem/0: location 1042 is 1
+run/0: result 0 is 1
+mem/0: storing 1 in location 2
+run/0: instruction test-channel-new-empty-not-full/2
+mem/0: location 1 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1067
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1069
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1070
+run/0: instruction channel-full?/5
+mem/0: location 1069 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1097
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1099
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1099 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1100
+run/0: instruction channel-capacity/3
+mem/0: location 1100 is 1033
+mem/0: storing 4 in location 1101
+run/0: instruction channel-capacity/4
+mem/0: location 1101 is 4
+run/0: result 0 is 4
+mem/0: storing 4 in location 1071
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 1
+run/0: ingredient 1 is len
+mem/0: location 1071 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/7
+mem/0: location 1072 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1073
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1073 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1070 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1074
+run/0: instruction channel-full?/12
+mem/0: location 1074 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 3
diff --git a/cpp/.traces/channel-read-increments-full b/cpp/.traces/channel-read-increments-full
new file mode 100644
index 00000000..dc1f8a71
--- /dev/null
+++ b/cpp/.traces/channel-read-increments-full
@@ -0,0 +1,362 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "3", value: 0, type: 0, properties: ["3": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 111
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-free", value: 0, type: 0, properties: ["first-free": "offset"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+name/0: element first-full of type channel is at offset 0
+name/0: element first-free of type channel is at offset 1
+after-brace/0: recipe test-channel-read-increments-full
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: read ...
+after-brace/0: get ...
+after-brace/0: get ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-read-increments-full
+run/0: instruction test-channel-read-increments-full/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 3
+mem/0: storing 3 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 3
+run/0: ingredient 1 is 1
+run/0: product 0 is 4
+mem/0: storing 4 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 4
+mem/0: array size is 4
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-increments-full/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1037
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1039
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1040
+run/0: instruction write/4
+mem/0: location 1039 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1067
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1069
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1070
+run/0: instruction channel-full?/5
+mem/0: location 1069 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1097
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1099
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1099 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1100
+run/0: instruction channel-capacity/3
+mem/0: location 1100 is 1033
+mem/0: storing 4 in location 1101
+run/0: instruction channel-capacity/4
+mem/0: location 1101 is 4
+run/0: result 0 is 4
+mem/0: storing 4 in location 1071
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 1
+run/0: ingredient 1 is len
+mem/0: location 1071 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/7
+mem/0: location 1072 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1073
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1073 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1070 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1074
+run/0: instruction channel-full?/12
+mem/0: location 1074 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1041
+run/0: instruction write/5
+mem/0: location 1041 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1043
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1044
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1043 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1045
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1040 is 34
+mem/0: location 1045 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1044 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1043 is 1033
+mem/0: storing 4 in location 1046
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1046 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1047
+run/0: instruction write/17
+mem/0: location 1047 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1039 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-increments-full/2
+mem/0: location 1 is 1030
+run/0: instruction read/0
+mem/0: array size is 30
+mem/0: new alloc: 1127
+run/0: instruction read/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1129
+run/0: instruction read/3
+mem/0: location 1129 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1157
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1159
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1159 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1160
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1159 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1161
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1160 is 0
+run/0: ingredient 1 is free
+mem/0: location 1161 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1162
+run/0: instruction channel-empty?/5
+mem/0: location 1162 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1130
+run/0: instruction read/4
+mem/0: location 1130 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 7
+run/0: instruction read/8
+run/0: ingredient 0 is chan
+mem/0: location 1129 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1132
+run/0: instruction read/9
+run/0: ingredient 0 is chan
+mem/0: location 1129 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1133
+run/0: instruction read/10
+run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
+mem/0: location 1133 is 1033
+run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
+mem/0: location 1132 is 1030
+mem/0: location 1030 is 0
+run/0: address to copy is 1034
+run/0: its type is 1
+mem/0: location 1034 is 34
+run/0: product 0 is 34
+mem/0: storing 34 in location 1134
+run/0: instruction read/11
+run/0: ingredient 0 is full
+mem/0: location 1132 is 1030
+mem/0: location 1030 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1132 is 1030
+mem/0: storing 1 in location 1030
+run/0: instruction read/13
+mem/0: location 1133 is 1033
+mem/0: storing 4 in location 1135
+run/0: instruction read/14
+run/0: ingredient 0 is full
+mem/0: location 1132 is 1030
+mem/0: location 1030 is 1
+run/0: ingredient 1 is len
+mem/0: location 1135 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1136
+run/0: instruction read/15
+mem/0: location 1136 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 17
+run/0: instruction read/18
+mem/0: location 1134 is 34
+mem/0: location 1129 is 1030
+run/0: result 0 is 34
+run/0: result 1 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-increments-full/3
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 2
+run/0: instruction test-channel-read-increments-full/4
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 3
diff --git a/cpp/.traces/channel-read-not-full b/cpp/.traces/channel-read-not-full
new file mode 100644
index 00000000..8f754bad
--- /dev/null
+++ b/cpp/.traces/channel-read-not-full
@@ -0,0 +1,458 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "1", value: 0, type: 0, properties: ["1": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 111
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 112
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 110
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+after-brace/0: recipe test-channel-read-not-full
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: read ...
+after-brace/0: channel-empty? ...
+after-brace/0: channel-full? ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-read-not-full
+run/0: instruction test-channel-read-not-full/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 1
+mem/0: storing 1 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 2
+mem/0: array size is 2
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-not-full/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1035
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1037
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1038
+run/0: instruction write/4
+mem/0: location 1037 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1065
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1067
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1068
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1068
+run/0: instruction channel-full?/5
+mem/0: location 1067 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1095
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1097
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1097 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1098
+run/0: instruction channel-capacity/3
+mem/0: location 1098 is 1033
+mem/0: storing 2 in location 1099
+run/0: instruction channel-capacity/4
+mem/0: location 1099 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1069
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 1
+run/0: ingredient 1 is len
+mem/0: location 1069 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/7
+mem/0: location 1070 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1071
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1071 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1068 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/12
+mem/0: location 1072 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1039
+run/0: instruction write/5
+mem/0: location 1039 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1041
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1042
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1041 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1043
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1038 is 34
+mem/0: location 1043 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1042 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1041 is 1033
+mem/0: storing 2 in location 1044
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1044 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1045
+run/0: instruction write/17
+mem/0: location 1045 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1037 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-not-full/2
+mem/0: location 1 is 1030
+run/0: instruction read/0
+mem/0: array size is 30
+mem/0: new alloc: 1125
+run/0: instruction read/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1127
+run/0: instruction read/3
+mem/0: location 1127 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1155
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1157
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1158
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1159
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1158 is 0
+run/0: ingredient 1 is free
+mem/0: location 1159 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1160
+run/0: instruction channel-empty?/5
+mem/0: location 1160 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1128
+run/0: instruction read/4
+mem/0: location 1128 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 7
+run/0: instruction read/8
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1130
+run/0: instruction read/9
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1131
+run/0: instruction read/10
+run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
+mem/0: location 1131 is 1033
+run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 0
+run/0: address to copy is 1034
+run/0: its type is 1
+mem/0: location 1034 is 34
+run/0: product 0 is 34
+mem/0: storing 34 in location 1132
+run/0: instruction read/11
+run/0: ingredient 0 is full
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1130 is 1030
+mem/0: storing 1 in location 1030
+run/0: instruction read/13
+mem/0: location 1131 is 1033
+mem/0: storing 2 in location 1133
+run/0: instruction read/14
+run/0: ingredient 0 is full
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 1
+run/0: ingredient 1 is len
+mem/0: location 1133 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1134
+run/0: instruction read/15
+mem/0: location 1134 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 17
+run/0: instruction read/18
+mem/0: location 1132 is 34
+mem/0: location 1127 is 1030
+run/0: result 0 is 34
+run/0: result 1 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-not-full/3
+mem/0: location 1 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1185
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1187
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1187 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1188
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1187 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1189
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1188 is 1
+run/0: ingredient 1 is free
+mem/0: location 1189 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1190
+run/0: instruction channel-empty?/5
+mem/0: location 1190 is 1
+run/0: result 0 is 1
+mem/0: storing 1 in location 2
+run/0: instruction test-channel-read-not-full/4
+mem/0: location 1 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1215
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1217
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1217 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1218
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1218 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1218
+run/0: instruction channel-full?/5
+mem/0: location 1217 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1245
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1247
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1247 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1248
+run/0: instruction channel-capacity/3
+mem/0: location 1248 is 1033
+mem/0: storing 2 in location 1249
+run/0: instruction channel-capacity/4
+mem/0: location 1249 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1219
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1218 is 2
+run/0: ingredient 1 is len
+mem/0: location 1219 is 2
+run/0: product 0 is 1
+mem/0: storing 1 in location 1220
+run/0: instruction channel-full?/7
+mem/0: location 1220 is 1
+run/0: ingredient 0 is 1
+run/0: jump-unless fell through
+run/0: instruction channel-full?/8
+run/0: ingredient 0 is 0
+mem/0: storing 0 in location 1218
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1217 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1221
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1221 is 1
+run/0: ingredient 1 is tmp
+mem/0: location 1218 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1222
+run/0: instruction channel-full?/12
+mem/0: location 1222 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 3
diff --git a/cpp/.traces/channel-wrap b/cpp/.traces/channel-wrap
new file mode 100644
index 00000000..9031c06f
--- /dev/null
+++ b/cpp/.traces/channel-wrap
@@ -0,0 +1,670 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "1", value: 0, type: 0, properties: ["1": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 111
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-free", value: 0, type: 0, properties: ["first-free": "offset"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-free", value: 0, type: 0, properties: ["first-free": "offset"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-free", value: 0, type: 0, properties: ["first-free": "offset"]}
+parse/0:   product: {name: "4", value: 0, type: 1, properties: ["4": "integer"]}
+parse/0: instruction: 111
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
+parse/0:   product: {name: "5", value: 0, type: 1, properties: ["5": "integer"]}
+name/0: element first-free of type channel is at offset 1
+name/0: element first-free of type channel is at offset 1
+name/0: element first-free of type channel is at offset 1
+name/0: element first-full of type channel is at offset 0
+after-brace/0: recipe test-channel-wrap
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: read ...
+after-brace/0: get ...
+after-brace/0: get ...
+after-brace/0: write ...
+after-brace/0: get ...
+after-brace/0: read ...
+after-brace/0: get ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-wrap
+run/0: instruction test-channel-wrap/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 1
+mem/0: storing 1 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 2
+mem/0: array size is 2
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-wrap/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1035
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1037
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1038
+run/0: instruction write/4
+mem/0: location 1037 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1065
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1067
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1068
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1068
+run/0: instruction channel-full?/5
+mem/0: location 1067 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1095
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1097
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1097 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1098
+run/0: instruction channel-capacity/3
+mem/0: location 1098 is 1033
+mem/0: storing 2 in location 1099
+run/0: instruction channel-capacity/4
+mem/0: location 1099 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1069
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 1
+run/0: ingredient 1 is len
+mem/0: location 1069 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/7
+mem/0: location 1070 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1071
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1071 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1068 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/12
+mem/0: location 1072 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1039
+run/0: instruction write/5
+mem/0: location 1039 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1041
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1042
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1041 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1043
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1038 is 34
+mem/0: location 1043 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1042 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1041 is 1033
+mem/0: storing 2 in location 1044
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1044 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1045
+run/0: instruction write/17
+mem/0: location 1045 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1037 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-wrap/2
+mem/0: location 1 is 1030
+run/0: instruction read/0
+mem/0: array size is 30
+mem/0: new alloc: 1125
+run/0: instruction read/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1127
+run/0: instruction read/3
+mem/0: location 1127 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1155
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1157
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1158
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1159
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1158 is 0
+run/0: ingredient 1 is free
+mem/0: location 1159 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1160
+run/0: instruction channel-empty?/5
+mem/0: location 1160 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1128
+run/0: instruction read/4
+mem/0: location 1128 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 7
+run/0: instruction read/8
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1130
+run/0: instruction read/9
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1131
+run/0: instruction read/10
+run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
+mem/0: location 1131 is 1033
+run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 0
+run/0: address to copy is 1034
+run/0: its type is 1
+mem/0: location 1034 is 34
+run/0: product 0 is 34
+mem/0: storing 34 in location 1132
+run/0: instruction read/11
+run/0: ingredient 0 is full
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1130 is 1030
+mem/0: storing 1 in location 1030
+run/0: instruction read/13
+mem/0: location 1131 is 1033
+mem/0: storing 2 in location 1133
+run/0: instruction read/14
+run/0: ingredient 0 is full
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 1
+run/0: ingredient 1 is len
+mem/0: location 1133 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1134
+run/0: instruction read/15
+mem/0: location 1134 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 17
+run/0: instruction read/18
+mem/0: location 1132 is 34
+mem/0: location 1127 is 1030
+run/0: result 0 is 34
+run/0: result 1 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-wrap/3
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 2
+run/0: instruction test-channel-wrap/4
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 3
+run/0: instruction test-channel-wrap/5
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1185
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1187
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1188
+run/0: instruction write/4
+mem/0: location 1187 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1215
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1217
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1217 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1218
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1218 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1218
+run/0: instruction channel-full?/5
+mem/0: location 1217 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1245
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1247
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1247 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1248
+run/0: instruction channel-capacity/3
+mem/0: location 1248 is 1033
+mem/0: storing 2 in location 1249
+run/0: instruction channel-capacity/4
+mem/0: location 1249 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1219
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1218 is 2
+run/0: ingredient 1 is len
+mem/0: location 1219 is 2
+run/0: product 0 is 1
+mem/0: storing 1 in location 1220
+run/0: instruction channel-full?/7
+mem/0: location 1220 is 1
+run/0: ingredient 0 is 1
+run/0: jump-unless fell through
+run/0: instruction channel-full?/8
+run/0: ingredient 0 is 0
+mem/0: storing 0 in location 1218
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1217 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1221
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1221 is 1
+run/0: ingredient 1 is tmp
+mem/0: location 1218 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1222
+run/0: instruction channel-full?/12
+mem/0: location 1222 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1189
+run/0: instruction write/5
+mem/0: location 1189 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1187 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1191
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1187 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1192
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1191 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1192 is 1031
+mem/0: location 1031 is 1
+run/0: address to copy is 1035
+run/0: product 0 is 1035
+mem/0: storing 1035 in location 1193
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1188 is 34
+mem/0: location 1193 is 1035
+mem/0: storing 34 in location 1035
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1192 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: location 1192 is 1031
+mem/0: storing 2 in location 1031
+run/0: instruction write/15
+mem/0: location 1191 is 1033
+mem/0: storing 2 in location 1194
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1192 is 1031
+mem/0: location 1031 is 2
+run/0: ingredient 1 is len
+mem/0: location 1194 is 2
+run/0: product 0 is 1
+mem/0: storing 1 in location 1195
+run/0: instruction write/17
+mem/0: location 1195 is 1
+run/0: ingredient 0 is 1
+run/0: jump-unless fell through
+run/0: instruction write/18
+run/0: ingredient 0 is 0
+mem/0: location 1192 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction write/20
+mem/0: location 1187 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-wrap/6
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 4
+run/0: instruction test-channel-wrap/7
+mem/0: location 1 is 1030
+run/0: instruction read/0
+mem/0: array size is 30
+mem/0: new alloc: 1275
+run/0: instruction read/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1277
+run/0: instruction read/3
+mem/0: location 1277 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1305
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1307
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1307 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1308
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1307 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1309
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1308 is 1
+run/0: ingredient 1 is free
+mem/0: location 1309 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1310
+run/0: instruction channel-empty?/5
+mem/0: location 1310 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1278
+run/0: instruction read/4
+mem/0: location 1278 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 7
+run/0: instruction read/8
+run/0: ingredient 0 is chan
+mem/0: location 1277 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1280
+run/0: instruction read/9
+run/0: ingredient 0 is chan
+mem/0: location 1277 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1281
+run/0: instruction read/10
+run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
+mem/0: location 1281 is 1033
+run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
+mem/0: location 1280 is 1030
+mem/0: location 1030 is 1
+run/0: address to copy is 1035
+run/0: its type is 1
+mem/0: location 1035 is 34
+run/0: product 0 is 34
+mem/0: storing 34 in location 1282
+run/0: instruction read/11
+run/0: ingredient 0 is full
+mem/0: location 1280 is 1030
+mem/0: location 1030 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: location 1280 is 1030
+mem/0: storing 2 in location 1030
+run/0: instruction read/13
+mem/0: location 1281 is 1033
+mem/0: storing 2 in location 1283
+run/0: instruction read/14
+run/0: ingredient 0 is full
+mem/0: location 1280 is 1030
+mem/0: location 1030 is 2
+run/0: ingredient 1 is len
+mem/0: location 1283 is 2
+run/0: product 0 is 1
+mem/0: storing 1 in location 1284
+run/0: instruction read/15
+mem/0: location 1284 is 1
+run/0: ingredient 0 is 1
+run/0: jump-unless fell through
+run/0: instruction read/16
+run/0: ingredient 0 is 0
+mem/0: location 1280 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction read/18
+mem/0: location 1282 is 34
+mem/0: location 1277 is 1030
+run/0: result 0 is 34
+run/0: result 1 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-wrap/8
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 5
diff --git a/cpp/.traces/channel-write-full b/cpp/.traces/channel-write-full
new file mode 100644
index 00000000..8385986c
--- /dev/null
+++ b/cpp/.traces/channel-write-full
@@ -0,0 +1,346 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "1", value: 0, type: 0, properties: ["1": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 112
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 110
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+after-brace/0: recipe test-channel-write-full
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: channel-empty? ...
+after-brace/0: channel-full? ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-write-full
+run/0: instruction test-channel-write-full/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 1
+mem/0: storing 1 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 2
+mem/0: array size is 2
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-write-full/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1035
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1037
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1038
+run/0: instruction write/4
+mem/0: location 1037 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1065
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1067
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1068
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1068
+run/0: instruction channel-full?/5
+mem/0: location 1067 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1095
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1097
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1097 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1098
+run/0: instruction channel-capacity/3
+mem/0: location 1098 is 1033
+mem/0: storing 2 in location 1099
+run/0: instruction channel-capacity/4
+mem/0: location 1099 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1069
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 1
+run/0: ingredient 1 is len
+mem/0: location 1069 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/7
+mem/0: location 1070 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1071
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1071 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1068 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/12
+mem/0: location 1072 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1039
+run/0: instruction write/5
+mem/0: location 1039 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1041
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1042
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1041 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1043
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1038 is 34
+mem/0: location 1043 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1042 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1041 is 1033
+mem/0: storing 2 in location 1044
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1044 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1045
+run/0: instruction write/17
+mem/0: location 1045 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1037 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-write-full/2
+mem/0: location 1 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1125
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1127
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1128
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1129
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1128 is 0
+run/0: ingredient 1 is free
+mem/0: location 1129 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1130
+run/0: instruction channel-empty?/5
+mem/0: location 1130 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 2
+run/0: instruction test-channel-write-full/3
+mem/0: location 1 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1155
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1157
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1158
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1158 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1158
+run/0: instruction channel-full?/5
+mem/0: location 1157 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1185
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1187
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1187 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1188
+run/0: instruction channel-capacity/3
+mem/0: location 1188 is 1033
+mem/0: storing 2 in location 1189
+run/0: instruction channel-capacity/4
+mem/0: location 1189 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1159
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1158 is 2
+run/0: ingredient 1 is len
+mem/0: location 1159 is 2
+run/0: product 0 is 1
+mem/0: storing 1 in location 1160
+run/0: instruction channel-full?/7
+mem/0: location 1160 is 1
+run/0: ingredient 0 is 1
+run/0: jump-unless fell through
+run/0: instruction channel-full?/8
+run/0: ingredient 0 is 0
+mem/0: storing 0 in location 1158
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1161
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1161 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1158 is 0
+run/0: product 0 is 1
+mem/0: storing 1 in location 1162
+run/0: instruction channel-full?/12
+mem/0: location 1162 is 1
+run/0: result 0 is 1
+mem/0: storing 1 in location 3
diff --git a/cpp/.traces/channel-write-increments-free b/cpp/.traces/channel-write-increments-free
new file mode 100644
index 00000000..71f3a49f
--- /dev/null
+++ b/cpp/.traces/channel-write-increments-free
@@ -0,0 +1,250 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "3", value: 0, type: 0, properties: ["3": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 19
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel", "deref": ]}
+parse/0:   ingredient: {name: "first-free", value: 0, type: 0, properties: ["first-free": "offset"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+name/0: element first-full of type channel is at offset 0
+name/0: element first-free of type channel is at offset 1
+after-brace/0: recipe test-channel-write-increments-free
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: get ...
+after-brace/0: get ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-write-increments-free
+run/0: instruction test-channel-write-increments-free/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 3
+mem/0: storing 3 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 3
+run/0: ingredient 1 is 1
+run/0: product 0 is 4
+mem/0: storing 4 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 4
+mem/0: array size is 4
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-write-increments-free/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1037
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1039
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1040
+run/0: instruction write/4
+mem/0: location 1039 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1067
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1069
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1070
+run/0: instruction channel-full?/5
+mem/0: location 1069 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1097
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1099
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1099 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1100
+run/0: instruction channel-capacity/3
+mem/0: location 1100 is 1033
+mem/0: storing 4 in location 1101
+run/0: instruction channel-capacity/4
+mem/0: location 1101 is 4
+run/0: result 0 is 4
+mem/0: storing 4 in location 1071
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 1
+run/0: ingredient 1 is len
+mem/0: location 1071 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/7
+mem/0: location 1072 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1073
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1073 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1070 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1074
+run/0: instruction channel-full?/12
+mem/0: location 1074 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1041
+run/0: instruction write/5
+mem/0: location 1041 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1043
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1044
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1043 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1045
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1040 is 34
+mem/0: location 1045 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1044 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1043 is 1033
+mem/0: storing 4 in location 1046
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1046 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1047
+run/0: instruction write/17
+mem/0: location 1047 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1039 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-write-increments-free/2
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 2
+run/0: instruction test-channel-write-increments-free/3
+run/0: ingredient 0 is 1
+mem/0: location 1 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 3
diff --git a/cpp/.traces/channel-write-not-empty b/cpp/.traces/channel-write-not-empty
new file mode 100644
index 00000000..8b361b26
--- /dev/null
+++ b/cpp/.traces/channel-write-not-empty
@@ -0,0 +1,344 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "3", value: 0, type: 0, properties: ["3": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 112
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 110
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+after-brace/0: recipe test-channel-write-not-empty
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: channel-empty? ...
+after-brace/0: channel-full? ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-write-not-empty
+run/0: instruction test-channel-write-not-empty/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 3
+mem/0: storing 3 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 3
+run/0: ingredient 1 is 1
+run/0: product 0 is 4
+mem/0: storing 4 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 4
+mem/0: array size is 4
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-write-not-empty/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1037
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1039
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1040
+run/0: instruction write/4
+mem/0: location 1039 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1067
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1069
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1070
+run/0: instruction channel-full?/5
+mem/0: location 1069 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1097
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1099
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1099 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1100
+run/0: instruction channel-capacity/3
+mem/0: location 1100 is 1033
+mem/0: storing 4 in location 1101
+run/0: instruction channel-capacity/4
+mem/0: location 1101 is 4
+run/0: result 0 is 4
+mem/0: storing 4 in location 1071
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1070 is 1
+run/0: ingredient 1 is len
+mem/0: location 1071 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/7
+mem/0: location 1072 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1069 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1073
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1073 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1070 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1074
+run/0: instruction channel-full?/12
+mem/0: location 1074 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1041
+run/0: instruction write/5
+mem/0: location 1041 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1043
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1039 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1044
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1043 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1045
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1040 is 34
+mem/0: location 1045 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1044 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1043 is 1033
+mem/0: storing 4 in location 1046
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1044 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1046 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1047
+run/0: instruction write/17
+mem/0: location 1047 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1039 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-write-not-empty/2
+mem/0: location 1 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1127
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1129
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1129 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1130
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1129 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1131
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1130 is 0
+run/0: ingredient 1 is free
+mem/0: location 1131 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1132
+run/0: instruction channel-empty?/5
+mem/0: location 1132 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 2
+run/0: instruction test-channel-write-not-empty/3
+mem/0: location 1 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1157
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1159
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1159 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1160
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1160 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1160
+run/0: instruction channel-full?/5
+mem/0: location 1159 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1187
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1189
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1189 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1190
+run/0: instruction channel-capacity/3
+mem/0: location 1190 is 1033
+mem/0: storing 4 in location 1191
+run/0: instruction channel-capacity/4
+mem/0: location 1191 is 4
+run/0: result 0 is 4
+mem/0: storing 4 in location 1161
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1160 is 2
+run/0: ingredient 1 is len
+mem/0: location 1161 is 4
+run/0: product 0 is 0
+mem/0: storing 0 in location 1162
+run/0: instruction channel-full?/7
+mem/0: location 1162 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1159 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1163
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1163 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1160 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1164
+run/0: instruction channel-full?/12
+mem/0: location 1164 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 3
diff --git a/cpp/061channel.mu b/cpp/061channel.mu
new file mode 100644
index 00000000..83596961
--- /dev/null
+++ b/cpp/061channel.mu
@@ -0,0 +1,266 @@
+# Mu synchronizes using channels rather than locks, like Erlang and Go.
+#
+# The two ends of a channel will usually belong to different routines, but
+# each end should only be used by a single one. Don't try to read from or
+# write to it from multiple routines at once.
+#
+# The key property of channels is that writing to a full channel or reading
+# from an empty one will put the current routine in 'waiting' state until the
+# operation can be completed.
+
+scenario channel [
+  run [
+    1:address:channel <- init-channel 3:literal/capacity
+    1:address:channel <- write 1:address:channel, 34:literal
+    2:integer, 1:address:channel <- read 1:address:channel
+  ]
+  memory should contain [
+    2 <- 34
+  ]
+]
+
+container channel [
+  # To avoid locking, writer and reader will never write to the same location.
+  # So channels will include fields in pairs, one for the writer and one for the
+  # reader.
+  first-full:integer  # for write
+  first-free:integer  # for read
+  # A circular buffer contains values from index first-full up to (but not
+  # including) index first-empty. The reader always modifies it at first-full,
+  # while the writer always modifies it at first-empty.
+  data:address:array:location
+]
+
+# result:address:channel <- init-channel capacity:integer
+recipe init-channel [
+  default-space:address:array:location <- new location:type, 30:literal
+  # result = new channel
+  result:address:channel <- new channel:type
+  # result.first-full = 0
+  full:address:integer <- get-address result:address:channel/deref, first-full:offset
+  full:address:integer/deref <- copy 0:literal
+  # result.first-free = 0
+  free:address:integer <- get-address result:address:channel/deref, first-free:offset
+  free:address:integer/deref <- copy 0:literal
+  # result.data = new location[ingredient+1]
+  capacity:integer <- next-ingredient
+  capacity:integer <- add capacity:integer, 1:literal  # unused slot for 'full?' below
+  dest:address:address:array:location <- get-address result:address:channel/deref, data:offset
+  dest:address:address:array:location/deref <- new location:type, capacity:integer
+  reply result:address:channel
+]
+
+# chan:address:channel <- write chan:address:channel, val:location
+recipe write [
+  default-space:address:array:location <- new location:type, 30:literal
+  chan:address:channel <- next-ingredient
+  val:location <- next-ingredient
+  {
+    # block if chan is full
+    full:boolean <- channel-full? chan:address:channel
+    break-unless full:boolean
+    full-address:address:integer <- get-address chan:address:channel/deref, first-full:offset
+    wait-for-location full-address:address:integer/deref
+  }
+  # store val
+  circular-buffer:address:array:location <- get chan:address:channel/deref, data:offset
+  free:address:integer <- get-address chan:address:channel/deref, first-free:offset
+  dest:address:location <- index-address circular-buffer:address:array:location/deref, free:address:integer/deref
+  dest:address:location/deref <- copy val:location
+  # increment free
+  free:address:integer/deref <- add free:address:integer/deref, 1:literal
+  {
+    # wrap free around to 0 if necessary
+    len:integer <- length circular-buffer:address:array:location/deref
+    at-end?:boolean <- greater-or-equal free:address:integer/deref, len:integer
+    break-unless at-end?:boolean
+    free:address:integer/deref <- copy 0:literal
+  }
+  reply chan:address:channel/same-as-ingredient:0
+]
+
+# result:location, chan:address:channel <- read chan:address:channel
+recipe read [
+  default-space:address:array:location <- new location:type, 30:literal
+  chan:address:channel <- next-ingredient
+  {
+    # block if chan is empty
+    empty:boolean <- channel-empty? chan:address:channel
+    break-unless empty:boolean
+    free-address:address:integer <- get-address chan:address:channel/deref, first-free:offset
+    wait-for-location free-address:address:integer/deref
+  }
+  # read result
+  full:address:integer <- get-address chan:address:channel/deref, first-full:offset
+  circular-buffer:address:array:location <- get chan:address:channel/deref, data:offset
+  result:location <- index circular-buffer:address:array:location/deref, full:address:integer/deref
+  # increment full
+  full:address:integer/deref <- add full:address:integer/deref, 1:literal
+  {
+    # wrap full around to 0 if necessary
+    len:integer <- length circular-buffer:address:array:location/deref
+    at-end?:boolean <- greater-or-equal full:address:integer/deref, len:integer
+    break-unless at-end?:boolean
+    full:address:integer/deref <- copy 0:literal
+  }
+  reply result:location, chan:address:channel/same-as-ingredient:0
+]
+
+scenario channel-initialization [
+  run [
+    1:address:channel <- init-channel 3:literal/capacity
+    2:integer <- get 1:address:channel/deref, first-full:offset
+    3:integer <- get 1:address:channel/deref, first-free:offset
+  ]
+  memory should contain [
+    2 <- 0  # first-full
+    3 <- 0  # first-free
+  ]
+]
+
+scenario channel-write-increments-free [
+  run [
+    1:address:channel <- init-channel 3:literal/capacity
+    1:address:channel <- write 1:address:channel, 34:literal
+    2:integer <- get 1:address:channel/deref, first-full:offset
+    3:integer <- get 1:address:channel/deref, first-free:offset
+  ]
+  memory should contain [
+    2 <- 0  # first-full
+    3 <- 1  # first-free
+  ]
+]
+
+scenario channel-read-increments-full [
+  run [
+    1:address:channel <- init-channel 3:literal/capacity
+    1:address:channel <- write 1:address:channel, 34:literal
+    _, 1:address:channel <- read 1:address:channel
+    2:integer <- get 1:address:channel/deref, first-full:offset
+    3:integer <- get 1:address:channel/deref, first-free:offset
+  ]
+  memory should contain [
+    2 <- 1  # first-full
+    3 <- 1  # first-free
+  ]
+]
+
+scenario channel-wrap [
+  run [
+    # channel with just 1 slot
+    1:address:channel <- init-channel 1:literal/capacity
+    # write and read a value
+    1:address:channel <- write 1:address:channel, 34:literal
+    _, 1:address:channel <- read 1:address:channel
+    # first-free will now be 1
+    2:integer <- get 1:address:channel/deref, first-free:offset
+    3:integer <- get 1:address:channel/deref, first-free:offset
+    # write second value, verify that first-free wraps
+    1:address:channel <- write 1:address:channel, 34:literal
+    4:integer <- get 1:address:channel/deref, first-free:offset
+    # read second value, verify that first-full wraps
+    _, 1:address:channel <- read 1:address:channel
+    5:integer <- get 1:address:channel/deref, first-full:offset
+  ]
+  memory should contain [
+    2 <- 1  # first-free after first write
+    3 <- 1  # first-full after first read
+    4 <- 0  # first-free after second write, wrapped
+    5 <- 0  # first-full after second read, wrapped
+  ]
+]
+
+## helpers
+
+# An empty channel has first-empty and first-full both at the same value.
+recipe channel-empty? [
+  default-space:address:array:location <- new location:type, 30:literal
+  chan:address:channel <- next-ingredient
+  # return chan.first-full == chan.first-free
+  full:integer <- get chan:address:channel/deref, first-full:offset
+  free:integer <- get chan:address:channel/deref, first-free:offset
+  result:boolean <- equal full:integer, free:integer
+  reply result:boolean
+]
+
+# A full channel has first-empty just before first-full, wasting one slot.
+# (Other alternatives: https://en.wikipedia.org/wiki/Circular_buffer#Full_.2F_Empty_Buffer_Distinction)
+recipe channel-full? [
+  default-space:address:array:location <- new location:type, 30:literal
+  chan:address:channel <- next-ingredient
+  # tmp = chan.first-free + 1
+  tmp:integer <- get chan:address:channel/deref, first-free:offset
+  tmp:integer <- add tmp:integer, 1:literal
+  {
+    # if tmp == chan.capacity, tmp = 0
+    len:integer <- channel-capacity chan:address:channel
+    at-end?:boolean <- greater-or-equal tmp:integer, len:integer
+    break-unless at-end?:boolean
+    tmp:integer <- copy 0:literal
+  }
+  # return chan.first-full == tmp
+  full:integer <- get chan:address:channel/deref, first-full:offset
+  result:boolean <- equal full:integer, tmp:integer
+  reply result:boolean
+]
+
+# result:integer <- channel-capacity chan:address:channel
+recipe channel-capacity [
+  default-space:address:array:location <- new location:type, 30:literal
+  chan:address:channel <- next-ingredient
+  q:address:array:location <- get chan:address:channel/deref, data:offset
+  result:integer <- length q:address:array:location/deref
+  reply result:integer
+]
+
+scenario channel-new-empty-not-full [
+  run [
+    1:address:channel <- init-channel 3:literal/capacity
+    2:integer <- channel-empty? 1:address:channel
+    3:integer <- channel-full? 1:address:channel
+  ]
+  memory should contain [
+    2 <- 1  # empty?
+    3 <- 0  # full?
+  ]
+]
+
+scenario channel-write-not-empty [
+  run [
+    1:address:channel <- init-channel 3:literal/capacity
+    1:address:channel <- write 1:address:channel, 34:literal
+    2:integer <- channel-empty? 1:address:channel
+    3:integer <- channel-full? 1:address:channel
+  ]
+  memory should contain [
+    2 <- 0  # empty?
+    3 <- 0  # full?
+  ]
+]
+
+scenario channel-write-full [
+  run [
+    1:address:channel <- init-channel 1:literal/capacity
+    1:address:channel <- write 1:address:channel, 34:literal
+    2:integer <- channel-empty? 1:address:channel
+    3:integer <- channel-full? 1:address:channel
+  ]
+  memory should contain [
+    2 <- 0  # empty?
+    3 <- 1  # full?
+  ]
+]
+
+scenario channel-read-not-full [
+  run [
+    1:address:channel <- init-channel 1:literal/capacity
+    1:address:channel <- write 1:address:channel, 34:literal
+    _, 1:address:channel <- read 1:address:channel
+    2:integer <- channel-empty? 1:address:channel
+    3:integer <- channel-full? 1:address:channel
+  ]
+  memory should contain [
+    2 <- 1  # empty?
+    3 <- 0  # full?
+  ]
+]
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-08-19 19:52:36 +0000