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

Display inlining analysis in a more user-friendly fashion.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-04-02 12:52:55 -04:00
parent 3ce4e0d0e7
commit 69df0c4969
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/typed-racket/optimizer/tool/mzc.rkt
View File

@ -228,13 +228,10 @@
;; Integer String #:suffix String -> (U Null (List String))
;; if n = 0, nothing, if n = 1 singular, o/w plural
(define (pluralize n noun #:suffix [suffix "s"])
(if (> n 0)
(list (format "~a ~a~a" n noun (if (> n 1) suffix "")))
'()))
(format "(~a)"
(string-join
(append (pluralize n-successes "success" #:suffix "es")
(pluralize n-unrollings "unrolling")
(pluralize n-failures "failure")
(string-append n-out-of-fuels " out of fuel")) ; no plural
", ")))
(format "~a ~a~a" n noun (if (> n 1) suffix "")))
(format "(~a out of ~a~a)"
(pluralize n-successes "success" #:suffix "es")
(+ n-successes n-failures n-out-of-fuels)
(if (> n-unrollings 0)
(format " and ~a" (pluralize n-unrollings "unrolling"))
"")))