From c031452f602fef2b7431355e9aa08320229f3277 Mon Sep 17 00:00:00 2001 From: Martin Gasbichler Date: Thu, 22 Jan 2004 12:33:28 +0000 Subject: [PATCH] Fixed bug in FreeBSD implementation: return seconds instead of minutes. --- scsh/pps/pps.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/pps/pps.scm b/scsh/pps/pps.scm index 1a35c87..c152647 100644 --- a/scsh/pps/pps.scm +++ b/scsh/pps/pps.scm @@ -99,8 +99,8 @@ (lambda (time) (let ((match-data (regexp-search short-rx time))) (if match-data - (+ (* 60 (string->number (match:substring match-data 1))) - (string->number (match:substring match-data 2)) + (+ (* 60 60 (string->number (match:substring match-data 1))) + (* 60 (string->number (match:substring match-data 2))) (quotient (string->number (match:substring match-data 3)) 50)) 0)))))