replacing sort with R6RS-defined list-sort