Fix for new set output order.

This test really ought to be changed somehow.

sugar/test/main.rkt

@@ -63,7 +63,7 @@
 
  (check-equal? (->list '(1 2 3)) '(1 2 3))
  (check-equal? (->list (list->vector '(1 2 3))) '(1 2 3))
- (check-equal? (->list (set 1 2 3)) '(3 2 1))
+ (check-equal? (->list (set 1 2 3)) '(2 3 1))
  (check-equal? (->list "foo") (list "foo"))
 
  (check-true (->boolean #t))