From 0d7d60f502ebef3071bf65ee00fe507da6155a06 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 25 Feb 2017 15:45:41 +0100 Subject: [PATCH 2/5] Fix invalid definition caught by previous commit. This was inadvertantly treated as a global definition before! --- chicken-profile.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/chicken-profile.scm b/chicken-profile.scm index 85120fa..4a6bbb8 100644 --- a/chicken-profile.scm +++ b/chicken-profile.scm @@ -138,14 +138,14 @@ EOF (set! sort-by sort-by-time) (define (set-decimals arg) + (define (arg-digit n) + (let ((n (- (char->integer (string-ref arg n)) + (char->integer #\0)))) + (if (<= 0 n 9) + (if (= n 9) 8 n) ; 9 => overflow in format-real + (error "invalid argument to -decimals option" arg)))) (if (= (string-length arg) 3) (begin - (define (arg-digit n) - (let ((n (- (char->integer (string-ref arg n)) - (char->integer #\0)))) - (if (<= 0 n 9) - (if (= n 9) 8 n) ; 9 => overflow in format-real - (error "invalid argument to -decimals option" arg)))) (set! seconds-digits (arg-digit 0)) (set! average-digits (arg-digit 1)) (set! percent-digits (arg-digit 2))) -- 2.1.4