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

Merge pull request #1 from bennn/fix-params

Browse Source 
fix 'raco profile' parameter parsing
This commit is contained in:
Benjamin Greenman 2016-01-09 11:20:38 -05:00
commit d228f394be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
profile-lib/raco.rkt
View File

@ -18,13 +18,13 @@
[("--delay") n [("--delay") n
"Sampling rate (seconds)" "Sampling rate (seconds)"
(let ([n* (string->number n)]) (let ([n* (string->number n)])
(unless (real? n) (unless (real? n*)
(raise-argument-error 'raco-profile "real?" n*)) (raise-argument-error 'raco-profile "real?" n*))
(set! delay n*))] (set! delay n*))]
[("--repeat") n [("--repeat") n
"Number of iterations" "Number of iterations"
(let ([n* (string->number n)]) (let ([n* (string->number n)])
(unless (integer?) (unless (integer? n*)
(raise-argument-error 'raco-profile "integer?" n*)) (raise-argument-error 'raco-profile "integer?" n*))
(set! iterations n*))] (set! iterations n*))]
[("--all-threads") [("--all-threads")