stable-sort can't sort the empty list

[westrick]

Hi,
Here is a bug in stable-sort (it can't sort the empty list):

guile> (stable-sort '() <)

Backtrace:
In standard input:
   1: 0* [stable-sort {()} #<primitive-generic <>]

standard input:1:1: In procedure stable-sort in expression  
(stable-sort (quote ()) <):
standard input:1:1: Wrong type argument in position 1: ()
ABORT: (wrong-type-arg)


sort is fine:
guile> (sort '() <)
()


Thanks,
Linda Westrick