equal
deleted
inserted
replaced
352 car:carArg cdr:cdrArg |
352 car:carArg cdr:cdrArg |
353 "set both car and cdr" |
353 "set both car and cdr" |
354 |
354 |
355 car := carArg. |
355 car := carArg. |
356 cdr := cdrArg. |
356 cdr := cdrArg. |
|
357 ! |
|
358 |
|
359 cddr |
|
360 "return the rest after the second element" |
|
361 |
|
362 ^ cdr cdr |
|
363 |
|
364 "Created: / 08-08-2010 / 17:47:11 / cg" |
357 ! |
365 ! |
358 |
366 |
359 cdr |
367 cdr |
360 "return the tail, second or cdr - whatever you wonna call it" |
368 "return the tail, second or cdr - whatever you wonna call it" |
361 |
369 |
573 ! ! |
581 ! ! |
574 |
582 |
575 !Cons class methodsFor:'documentation'! |
583 !Cons class methodsFor:'documentation'! |
576 |
584 |
577 version |
585 version |
578 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.14 2010-08-08 15:34:15 cg Exp $' |
586 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.15 2010-08-08 18:59:46 cg Exp $' |
579 ! |
587 ! |
580 |
588 |
581 version_CVS |
589 version_CVS |
582 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.14 2010-08-08 15:34:15 cg Exp $' |
590 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.15 2010-08-08 18:59:46 cg Exp $' |
583 ! ! |
591 ! ! |