# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1403716045 -7200
# Node ID 4298986dd5debaea4209dce7f6f6dbaca9a47fc6
# Parent  b58330b15063b3b2179d380c1bed858cd0be6f89
class: Cons
added: #length
changed: #size

diff -r b58330b15063 -r 4298986dd5de Cons.st
--- a/Cons.st	Wed Jun 25 19:02:27 2014 +0200
+++ b/Cons.st	Wed Jun 25 19:07:25 2014 +0200
@@ -672,18 +672,29 @@
     "Created: / 26-07-2012 / 23:32:52 / cg"
 !
 
-size
-    "for smalltalkers: the lists length"
+length
+    "the list's length"
 
-    |l p rest|
+    |len p rest|
 
-    l := 1.
+    len := 1.
     p := self.
     [(rest := p cdr) notNil] whileTrue:[
-        l := l + 1.
+        len := len + 1.
         p := rest
     ].
-    ^ l
+    ^ len
+
+    "
+     (Cons fromArray:#(1)) length     
+     (Cons fromArray:#(1 2 3 4)) length    
+    "
+!
+
+size
+    "for smalltalkers: the list's length"
+
+    ^ self length
 
     "
      (Cons fromArray:#( )) size    
@@ -701,10 +712,10 @@
 !Cons class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.22 2014-04-30 11:03:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.23 2014-06-25 17:07:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.22 2014-04-30 11:03:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.23 2014-06-25 17:07:25 cg Exp $'
 ! !