From ccacf5a6510113a6a82f014454a5220396c8b29a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 6 Jan 2010 21:25:00 +0000 Subject: [PATCH] svn: r17509 --- collects/scheme/private/norm-arity.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/scheme/private/norm-arity.ss b/collects/scheme/private/norm-arity.ss index 237d864408..b1db661498 100644 --- a/collects/scheme/private/norm-arity.ss +++ b/collects/scheme/private/norm-arity.ss @@ -36,6 +36,7 @@ ;; - no duplicate entries ;; - nats are sorted ;; - at most one arity-at-least, always at the end + ;; - if there is only one possibility, it is returned by itself (ie, not in a list) (define (normalize-arity a) (if (pair? a) (let-values ([(min-at-least) #f])