|
@@ -3570,7 +3570,7 @@ node_t *mf_len(list_t *t) {
|
|
|
if (!a)
|
|
|
return NULL;
|
|
|
|
|
|
- if (a->tag == N_LIST)
|
|
|
+ if (a->tag == N_LIST || a->tag == N_TUPLE)
|
|
|
return make_number(a->l->length);
|
|
|
|
|
|
return NULL;
|
|
@@ -3588,7 +3588,7 @@ node_t *mf_nth(list_t *t) {
|
|
|
if (!IS_NUMBER(b))
|
|
|
return NULL;
|
|
|
|
|
|
- if (a->tag == N_LIST)
|
|
|
+ if (a->tag == N_LIST || a->tag == N_TUPLE)
|
|
|
return list_index(a->l, TO_DOUBLE(b));
|
|
|
|
|
|
return NULL;
|