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

fix test

Browse Source
This commit is contained in:
Robby Findler 2014-07-25 23:53:23 -05:00
parent 804b558e05
commit 312d8d5d05
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/redex-pkgs/redex-test/redex/tests/tl-test.rkt
View File

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