add length.

TODO

@@ -15,7 +15,7 @@ v "string"
 assq
 call-with-values
 v char?
-length
+v length
 v list
 list->vector
 make-vector

mes.c

@@ -560,6 +560,18 @@ string_length (scm *x)
   return make_number (strlen (x->name));
 }
 
+scm *
+length (scm *x)
+{
+  int n = 0;
+  while (x != &scm_nil)
+    {
+      n++;
+      x = cdr (x);
+    }
+  return make_number (n);
+}
+
 scm *
 lookup (char *x, scm *a)
 {

test.mes

@@ -182,4 +182,11 @@
 (display (string #\a #\space #\s #\t #\r #\i #\n #\g #\newline))
 (newline)
 
+(display "length of nil: ")
+(display (length '()))
+(newline)
+(display "length of '(a b c): ")
+(display (length '(a b c)))
+(newline)
+
 '()