--- a/Cons.st Fri Apr 29 10:37:54 2011 +0200
+++ b/Cons.st Fri Apr 29 10:38:17 2011 +0200
@@ -102,6 +102,7 @@
|first prev this|
size == 0 ifTrue:[^ nil].
+
first := prev := self car:nil cdr:nil.
2 to:size do:[:n |
this := self car:nil cdr:nil.
@@ -111,13 +112,15 @@
^ first
"
+ (self makeList:0) size
+ (self makeList:1) size
(self makeList:100) size
(self makeList:1000) size
(self makeList:10000) size
"
"Created: / 28-04-2011 / 00:37:11 / cg"
- "Modified: / 29-04-2011 / 10:37:41 / cg"
+ "Modified: / 29-04-2011 / 10:38:11 / cg"
! !
!Cons class methodsFor:'sExpressions'!
@@ -605,9 +608,9 @@
!Cons class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.16 2011-04-29 08:37:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.17 2011-04-29 08:38:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.16 2011-04-29 08:37:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.17 2011-04-29 08:38:17 cg Exp $'
! !