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