| 744 | Calls docolon to do the real work. */ |
| 745 | |
| 746 | static VALUE * |
| 747 | eval5 (bool evaluate) |
| 748 | { |
| 749 | #ifdef EVAL_TRACE |
| 750 | trace ("eval5"); |
| 751 | #endif |
| 752 | VALUE *l = eval6 (evaluate); |
| 753 | while (true) |
| 754 | { |
| 755 | if (nextarg (":")) |
| 756 | { |
| 757 | VALUE *r = eval6 (evaluate); |
| 758 | if (evaluate) |
| 759 | { |
| 760 | VALUE *v = docolon (l, r); |
| 761 | freev (l); |
| 762 | l = v; |
| 763 | } |
| 764 | freev (r); |
| 765 | } |
| 766 | else |
| 767 | return l; |
| 768 | } |
| 769 | } |
| 770 | |
| 771 | /* Handle *, /, % operators. */ |
| 772 |