|
@@ -6813,7 +6813,7 @@ node_t *parser_parse_atom(parser_t *parser) {
|
|
|
return node;
|
|
|
}
|
|
|
|
|
|
-bool isunb(interpreter_t *state, char *s) {
|
|
|
+bool is_unbound(interpreter_t *state, char *s) {
|
|
|
if (state->args->data) {
|
|
|
list_t *args = list_index(state->args, -1);
|
|
|
size_t argc = args->length - 1;
|
|
@@ -6834,7 +6834,7 @@ node_t *parser_parse_sequence(parser_t *parser, node_t *a,
|
|
|
|
|
|
if ((tok = parser_lookahead(parser, 0)) &&
|
|
|
(tok->tag == tag || (tag == T_NUMBER && tok->tag == T_BNUMBER))) {
|
|
|
- if (tag == T_NAME && !isunb(parser->state, tok->text))
|
|
|
+ if (tag == T_NAME && !is_unbound(parser->state, tok->text))
|
|
|
return NULL;
|
|
|
|
|
|
list_t *as = list_new();
|
|
@@ -6843,7 +6843,7 @@ node_t *parser_parse_sequence(parser_t *parser, node_t *a,
|
|
|
|
|
|
do {
|
|
|
if (tag == T_NAME && tok->tag == T_NAME &&
|
|
|
- !isunb(parser->state, tok->text))
|
|
|
+ !is_unbound(parser->state, tok->text))
|
|
|
break;
|
|
|
|
|
|
a = parser_parse_atom(parser);
|
|
@@ -6867,7 +6867,7 @@ node_t *_parser_parse_noun(parser_t *parser) {
|
|
|
(n = parser_parse_sequence(parser, a, T_NUMBER)))
|
|
|
return n;
|
|
|
else if (a->tag == N_LITERAL && a->v->tag == SYMBOL &&
|
|
|
- isunb(parser->state, a->v->val.symbol) &&
|
|
|
+ is_unbound(parser->state, a->v->val.symbol) &&
|
|
|
(n = parser_parse_sequence(parser, a, T_NAME)))
|
|
|
return n;
|
|
|
else if (a->tag == N_LITERAL &&
|