--- 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 $'
! !