fix broken test

Test added in 8ee717520f was broken, because it used
`(current-milliseconds)` instead of `(current-ienxact-milliseconds)`
to construct an argument to`alarm-evt`'
This commit is contained in:
Matthew Flatt 2015-09-10 07:57:30 -06:00
parent 58cc3e91c3
commit 24eb509d15

View File

@ -1432,7 +1432,7 @@
(test val values got)))
(try values 'ok-channel)
(try (lambda (c) (choice-evt c (alarm-evt (+ 10000 (current-milliseconds)))))
(try (lambda (c) (choice-evt c (alarm-evt (+ 10000 (current-inexact-milliseconds)))))
'ok-channel+alarm))
;; ----------------------------------------