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

fix 'raco profile' parameter parsing

Browse Source
This commit is contained in:
ben 2016-01-09 11:18:49 -05:00
parent b3ebd557b1
commit e32bab94ea
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")