repo.or.cz
/
picobit.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
history
|
raw
|
HEAD
Tests added to the repository.
[picobit.git]
/
tests
/
test-clock.scm
blob
57e6215bec41c317543352f3d3b737e2a885c36b
1
(define x (time->seconds (current-time)))
2
(display x)
3
(sleep 700)
4
(display (- (time->seconds (current-time)) x))