fix test
This commit is contained in:
parent
804b558e05
commit
312d8d5d05
|
@ -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))
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user