This commit is contained in:
Robby Findler 2014-07-25 23:53:23 -05:00
parent 804b558e05
commit 312d8d5d05

View File

@ -2790,7 +2790,8 @@
(define-values (_ cpu real gc)
(time-apply
(λ ()
(judgment-holds (J ,(build-list 100 add1))))))
(judgment-holds (J ,(build-list 100 add1))))
'()))
(test (< cpu 1000) #t))