txlyre 2 dienas atpakaļ
vecāks
revīzija
038c61ab55
1 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  1. 2 2
      qic.c

+ 2 - 2
qic.c

@@ -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;