# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1304066297 -7200
# Node ID 35bc2d58019dadd6fac7745e583f5f684da29935
# Parent  bdc21dece78458922063e87e5a4e82090e01b02e
comment/format in: #makeList:

diff -r bdc21dece784 -r 35bc2d58019d Cons.st
--- 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 $'
 ! !