Handle non-adjustable trees in splay-tree->list

[soegaard]

Tests

(define s (make-adjustable-splay-tree)) (splay-tree-set! s 1 'a) (splay-tree-set! s 2 'b) (splay-tree-set! s 3 'c) (splay-tree->list s)

(define t (make-splay-tree)) (splay-tree-set! t 1 'a) (splay-tree-set! t 2 'b) (splay-tree-set! t 3 'c) (splay-tree->list t)

[sorawee]

Does it make sense to add tests to https://github.com/racket/data/blob/master/data-test/tests/data/ordered-dict.rkt ?

[soegaard]

It does make sense to add tests - but it turns a 5 minute fix into a 1 hour fix for me. Feel free to add some test cases - see also initial test case in the original PR.

[soegaard]

Ping @rmculpepper