3311     "

  3312 !

  3313 

  3314 copyButFirstAndLast

  3315     "return a new collection consisting of the receiver's elements

  3316      except for the first and last elements.

  3317      Raises an error if the receiver's size is less than 2."

  3318 

  3319     |sz|

  3320 

  3321     (sz := self size) < 2 ifTrue:[self notEnoughElementsError].

  3322     ^ self copyFrom:2 to:(sz - 1)

  3323 

  3324     "

  3325      #($a $b $c $d $e $f $g) copyButFirstAndLast

  3326      '1234567890' copyButFirstAndLast

  3327      '1' copyButFirstAndLast

  3328      '' copyButFirstAndLast

  3329      'ab' copyButFirstAndLast