scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug in FreeBSD implementation: return seconds instead of minutes.

This commit is contained in:
Martin Gasbichler 2004-01-22 12:33:28 +00:00
parent 1f2aea66ad
commit c031452f60
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/pps/pps.scm
View File

@ -99,8 +99,8 @@
(lambda (time) (lambda (time)
(let ((match-data (regexp-search short-rx time))) (let ((match-data (regexp-search short-rx time)))
(if match-data (if match-data
(+ (* 60 (string->number (match:substring match-data 1))) (+ (* 60 60 (string->number (match:substring match-data 1)))
(string->number (match:substring match-data 2)) (* 60 (string->number (match:substring match-data 2)))
(quotient (string->number (match:substring match-data 3)) 50)) (quotient (string->number (match:substring match-data 3)) 50))
0))))) 0)))))