diff options
| -rw-r--r-- | 054dilated_reagent.cc | 11 | ||||
| -rw-r--r-- | 055parse_tree.cc | 11 |
2 files changed, 11 insertions, 11 deletions
diff --git a/054dilated_reagent.cc b/054dilated_reagent.cc index 16698152..d90ed4df 100644 --- a/054dilated_reagent.cc +++ b/054dilated_reagent.cc @@ -30,17 +30,6 @@ recipe main [ ] $error: 0 -:(scenario dilated_reagent_in_static array) -recipe main [ - {1: (array (address shared number) 3)} <- create-array - 5:address:address:shared:number <- index-address {1: (array (address shared number) 3)}, 0 - *5:address:address:shared:number <- new number:type - **5:address:address:shared:number <- copy 34 - 6:number <- copy **5:address:address:shared:number -] -+run: creating array of size 4 -+mem: storing 34 in location 6 - //: First augment next_word to group balanced brackets together. :(before "End next_word Special-cases") diff --git a/055parse_tree.cc b/055parse_tree.cc index 5192e8a2..73e737a4 100644 --- a/055parse_tree.cc +++ b/055parse_tree.cc @@ -69,6 +69,17 @@ container bar [ ] +parse: product: 1: ("foo" ("address" "array" "character") ("bar" "number")) +:(scenario dilated_reagent_in_static_array) +recipe main [ + {1: (array (address shared number) 3)} <- create-array + 5:address:address:shared:number <- index-address {1: (array (address shared number) 3)}, 0 + *5:address:address:shared:number <- new number:type + **5:address:address:shared:number <- copy 34 + 6:number <- copy **5:address:address:shared:number +] ++run: creating array of size 4 ++mem: storing 34 in location 6 + //: an exception is 'new', which takes a type tree as its ingredient *value* :(scenario dilated_reagent_with_new) |