| 218 | } |
| 219 | |
| 220 | static expr tuple_expr(exprl::const_iterator it, exprl::const_iterator end) |
| 221 | { |
| 222 | expr x = *it; |
| 223 | if (++it == end) |
| 224 | return x; |
| 225 | else |
| 226 | return expr::pair(x, tuple_expr(it, end)); |
| 227 | } |
| 228 | |
| 229 | expr expr::tuple(const exprl& xs) |
| 230 | { |