diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2024-03-07 12:15:38 -0500 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2024-03-07 12:15:38 -0500 |
| commit | fa66053e13c39e6f6a25db8f46b1e1f97ecce2fc (patch) | |
| tree | 18148dcfa81cac8f156c4fbedbda7edf97c6585c | |
| parent | 98d86d1934cfe379c8dec758d843571bcb0f8486 (diff) | |
Use '$' for min/max variable
| -rw-r--r-- | compile.c | 2 | ||||
| -rw-r--r-- | parse.c | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -523,7 +523,7 @@ CORD compile(env_t *env, ast_t *ast) ast_t *key = ast->tag == Min ? Match(ast, Min)->key : Match(ast, Max)->key; ast_t *lhs = ast->tag == Min ? Match(ast, Min)->lhs : Match(ast, Max)->lhs; ast_t *rhs = ast->tag == Min ? Match(ast, Min)->rhs : Match(ast, Max)->rhs; - const char *key_name = ast->tag == Min ? "_min_" : "_max_"; + const char *key_name = "$"; if (key == NULL) key = FakeAST(Var, key_name); env_t *expr_env = fresh_scope(env); @@ -738,7 +738,7 @@ PARSER(parse_reduction) { ast_t *lhs = NewAST(ctx->file, pos, pos, Var, .name="$reduction"); ast_t *rhs = NewAST(ctx->file, pos, pos, Var, .name="$iter_value"); if (op == BINOP_MIN || op == BINOP_MAX) { - ast_t *key = NewAST(ctx->file, pos, pos, Var, .name=(op == BINOP_MIN ? "_min_" : "_max_")); + ast_t *key = NewAST(ctx->file, pos, pos, Var, .name="$"); for (bool progress = true; progress; ) { ast_t *new_term; progress = (false @@ -1302,7 +1302,7 @@ static ast_t *parse_infix_expr(parse_ctx_t *ctx, const char *pos, int min_tightn for (binop_e op; (op=match_binary_operator(&pos)) != BINOP_UNKNOWN && op_tightness[op] >= min_tightness; spaces(&pos)) { ast_t *key = NULL; if (op == BINOP_MIN || op == BINOP_MAX) { - key = NewAST(ctx->file, pos, pos, Var, .name=op == BINOP_MIN ? "_min_" : "_max_"); + key = NewAST(ctx->file, pos, pos, Var, .name="$"); for (bool progress = true; progress; ) { ast_t *new_term; progress = (false |
