[perl #124205] [BUG] List.squish does not always return the first list element

[Christian Bartolomaeus via RT]

This works now (fixed with commit ):

$ perl6-m -e '<a a>.squish(:with(-> $a, $b {1})).perl.say'
("a",).Seq

The tests in S32-list/squish.t are passing now. I'm closing this ticket as 
'resolved'.