fix bug in getting "rest" of an integer-set

2013-02-20 17:50:02 -05:00 · 2013-02-20 17:50:02 -05:00 · bd1141c670
commit bd1141c670
parent 5fcc96e41a
1 changed files with 1 additions and 1 deletions
--- a/collects/data/integer-set.rkt
+++ b/collects/data/integer-set.rkt
@ -74,7 +74,7 @@
     (make-integer-set
      (if (= low hi)
          (cdr contents)
-          (cons (cons (+ 1 low) hi) contents))))])
+          (cons (cons (+ 1 low) hi) (cdr contents)))))])

 ;; well-formed-set? : X -> bool
 (define (well-formed-set? x)