svn: r17509

2010-01-06 21:25:00 +00:00 · 2010-01-06 21:25:00 +00:00 · ccacf5a651
commit ccacf5a651
parent d014e0d0d8
1 changed files with 1 additions and 0 deletions
--- 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])