diff options
| author | Preston Pan <preston@nullring.xyz> | 2024-01-21 01:46:27 -0800 |
|---|---|---|
| committer | Preston Pan <preston@nullring.xyz> | 2024-01-21 01:46:27 -0800 |
| commit | 49a96b8865d9b9377b52a509ab13a8bfd8afff0a (patch) | |
| tree | 4edb1a8ac6b0635f81965f714286a80cf3e16917 /src | |
| parent | 0184e51377ebb5e398748f03552abe4168d359f3 (diff) | |
fixed stuff? idk
Diffstat (limited to 'src')
| -rw-r--r-- | src/builtins.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/builtins.c b/src/builtins.c index 475306d..73e16fd 100644 --- a/src/builtins.c +++ b/src/builtins.c @@ -1033,7 +1033,7 @@ void vat(value_t *v) { return; } if (v2->type == VQUOTE) { - if (v2->quote->size <= v1->int_float) { + if (v2->quote->size <= v1->int_float || v1->int_float < 0) { array_append(STACK, v1); array_append(STACK, v2); eval_error("INDEX ERROR"); @@ -1043,7 +1043,7 @@ void vat(value_t *v) { array_append(STACK, value_copy(v2->quote->items[(int)v1->int_float])); value_free(v1); } else if (v2->type == VSTR || v2->type == VWORD) { - if (v2->str_word->length <= v1->int_float) { + if (v2->str_word->length <= v1->int_float || v1->int_float < 0) { array_append(STACK, v1); array_append(STACK, v2); eval_error("INDEX ERROR"); @@ -1131,7 +1131,7 @@ void stemcut(value_t *v) { switch (v2->type) { case VWORD: case VSTR: - if (v1->int_float >= v2->str_word->length) { + if (v1->int_float >= v2->str_word->length || v1->int_float < 0) { array_append(STACK, v1); array_append(STACK, v2); eval_error("INDEX ERROR"); @@ -1154,7 +1154,7 @@ void stemcut(value_t *v) { } break; case VQUOTE: - if (v1->int_float >= v2->quote->size) { + if (v1->int_float >= v2->quote->size || v1->int_float < 0) { array_append(STACK, v1); array_append(STACK, v2); eval_error("INDEX ERROR"); |