Update Quick-sort.ss