From bd1141c670bfc7981761fbfb53f548c2abb1f12d Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Wed, 20 Feb 2013 17:50:02 -0500 Subject: [PATCH] fix bug in getting "rest" of an integer-set --- collects/data/integer-set.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/data/integer-set.rkt b/collects/data/integer-set.rkt index 306eaf4056..a468588347 100644 --- 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)