suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix `unstable/time' & xrepl use.

Browse Source 
(Just the relevant part of 1caa28d)
This commit is contained in:
Eli Barzilay 2011-08-01 14:54:53 -04:00
parent de605d4fe1
commit 4806c15bfe
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/unstable/time.rkt
View File

@ -1,11 +1,11 @@
#lang racket/base
;; An improved `time' variant: better output, and repetitions with averages
(provide time)
(provide time*)
(require racket/list)
(define (time* thunk times)
(define (time/proc thunk times)
(define throw
(if (<= times 0)
(error 'time "bad count: ~e" times)
@ -43,7 +43,7 @@
cpu (- cpu gc) gc real))
(apply values results))
(define-syntax time
(define-syntax time*
(syntax-rules ()
[(_ n expr0 expr ...) (time* (lambda () expr0 expr ...) n)]
[(_ expr0 expr ...) (time* (lambda () expr0 expr ...) 1)]))
[(_ n expr0 expr ...) (time/proc (lambda () expr0 expr ...) n)]
[(_ expr0 expr ...) (time/proc (lambda () expr0 expr ...) 1)]))