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

svn: r17506

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

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

@ -35,7 +35,7 @@
;; result is normalized in the following sense:
;; - no duplicate entries
;; - nats are sorted
;; - at most one arity-at-least, always at the beginning
;; - at most one arity-at-least, always at the end
(define (normalize-arity a)
(if (pair? a)
(let-values ([(min-at-least) #f])