added: #cddr
authorClaus Gittinger <cg@exept.de>
Sun, 08 Aug 2010 20:59:46 +0200
changeset 2472 bdfac3129628
parent 2471 d3561a593169
child 2473 774f49f32841
added: #cddr
Cons.st
--- a/Cons.st	Sun Aug 08 17:34:15 2010 +0200
+++ b/Cons.st	Sun Aug 08 20:59:46 2010 +0200
@@ -356,6 +356,14 @@
     cdr := cdrArg.
 !
 
+cddr
+    "return the rest after the second element"
+
+    ^ cdr cdr
+
+    "Created: / 08-08-2010 / 17:47:11 / cg"
+!
+
 cdr
     "return the tail, second or cdr - whatever you wonna call it"
 
@@ -575,9 +583,9 @@
 !Cons class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.14 2010-08-08 15:34:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.15 2010-08-08 18:59:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.14 2010-08-08 15:34:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.15 2010-08-08 18:59:46 cg Exp $'
 ! !