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])