Time mark engraver: Difference between revisions
Make the snippet display its result |
mNo edit summary |
||
| Line 15: | Line 15: | ||
#(define (Elapsed_time_engraver context) | #(define (Elapsed_time_engraver context) | ||
(define (format-time seconds) | (define (format-time seconds) ; example: 2m15s | ||
(let ((minutes (euclidean-quotient seconds 60)) | (let ((minutes (euclidean-quotient seconds 60)) | ||
(rest (euclidean-remainder seconds 60))) | (rest (euclidean-remainder seconds 60))) | ||