diff options
| -rw-r--r-- | 011load.cc | 3 | ||||
| -rw-r--r-- | 013literal_string.cc | 2 | ||||
| -rw-r--r-- | 054dilated_reagent.cc | 2 |
3 files changed, 4 insertions, 3 deletions
diff --git a/011load.cc b/011load.cc index 6fee184e..fceaff83 100644 --- a/011load.cc +++ b/011load.cc @@ -162,8 +162,9 @@ bool next_instruction(istream& in, instruction* curr) { } string next_word(istream& in) { - ostringstream out; skip_whitespace(in); + // End next_word Special-cases + ostringstream out; slurp_word(in, out); skip_whitespace(in); skip_comment(in); diff --git a/013literal_string.cc b/013literal_string.cc index 53654e5b..0e663d17 100644 --- a/013literal_string.cc +++ b/013literal_string.cc @@ -21,7 +21,7 @@ recipe main [ :(before "End Mu Types Initialization") Type_ordinal["literal-string"] = 0; -:(after "string next_word(istream& in)") +:(before "End next_word Special-cases") if (in.peek() == '[') { string result = slurp_quoted(in); skip_whitespace(in); diff --git a/054dilated_reagent.cc b/054dilated_reagent.cc index 70217ee4..756dc11d 100644 --- a/054dilated_reagent.cc +++ b/054dilated_reagent.cc @@ -10,7 +10,7 @@ recipe main [ //: First augment next_word to group balanced brackets together. -:(after "string next_word(istream& in)") +:(before "End next_word Special-cases") if (in.peek() == '(') return slurp_balanced_bracket(in); // curlies are like parens, but don't mess up labels |