Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

using parameterize for redirecting output in in prelude

Browse source
This commit is contained in:
Alex Shinn 2012-09-17 17:33:24 +09:00
parent ff74a8928f
commit 5a7a0bed5f
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
benchmarks/gabriel/chibi-prelude.scm
View file

@ -1,5 +1,5 @@
(import (chibi time) (scheme cxr) (srfi 33))
(import (chibi time) (scheme cxr) (srfi 33) (srfi 39))
(define (timeval->milliseconds tv)
(quotient (+ (* 1000000 (timeval-seconds tv)) (timeval-microseconds tv))
@ -8,12 +8,9 @@
(define (time* thunk)
(call-with-output-string
(lambda (out)
(let* ((orig-output-port (current-output-port))
(_ (current-output-port out))
(start (car (get-time-of-day)))
(result (thunk))
(let* ((start (car (get-time-of-day)))
(result (parameterize ((current-output-port out)) (thunk)))
(end (car (get-time-of-day)))
(_ (current-output-port orig-output-port))
(msecs (- (timeval->milliseconds end)
(timeval->milliseconds start))))
(display "user: ")