(define delete-duplicates
    (case-lambda
      [(lst) (delete-duplicates lst =)]
      [(lst cmp)
      (let loop ([lst lst])
        (if (null? lst)
            lst
            (cons (car lst) (loop (delete (car lst) (cdr lst) cmp)))))]))