suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r17509

Browse Source
This commit is contained in:
Robby Findler 2010-01-06 21:25:00 +00:00
parent d014e0d0d8
commit ccacf5a651
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/scheme/private/norm-arity.ss
View File

@ -36,6 +36,7 @@
;; - no duplicate entries ;; - no duplicate entries
;; - nats are sorted ;; - nats are sorted
;; - at most one arity-at-least, always at the end ;; - 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) (define (normalize-arity a)
(if (pair? a) (if (pair? a)
(let-values ([(min-at-least) #f]) (let-values ([(min-at-least) #f])