From ad9d9c007dd6da4e499557527143f8604c250b76 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 18 Mar 2015 23:17:14 -0400 Subject: [PATCH] Bump up the total process count for internal-latency tests --- internal-latency-prospect.rkt | 2 +- internal-latency-symbols-not-fixnums.rkt | 2 +- internal-latency.rkt | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/internal-latency-prospect.rkt b/internal-latency-prospect.rkt index 1e2a716..cd96f24 100644 --- a/internal-latency-prospect.rkt +++ b/internal-latency-prospect.rkt @@ -89,7 +89,7 @@ (for ((n (list* 1 2 5 (let loop ((n 10)) - (if (>= n 3000) + (if (>= n 30000) '() (cons (inexact->exact (round n)) (loop (* n (sqrt (sqrt 2)))))))) diff --git a/internal-latency-symbols-not-fixnums.rkt b/internal-latency-symbols-not-fixnums.rkt index ecbf68d..2d04490 100644 --- a/internal-latency-symbols-not-fixnums.rkt +++ b/internal-latency-symbols-not-fixnums.rkt @@ -90,7 +90,7 @@ (for ((n (list* 1 2 5 (let loop ((n 10)) - (if (>= n 3000) + (if (>= n 30000) '() (cons (inexact->exact (round n)) (loop (* n (sqrt (sqrt 2)))))))) diff --git a/internal-latency.rkt b/internal-latency.rkt index 0fc3eb2..4aabc09 100644 --- a/internal-latency.rkt +++ b/internal-latency.rkt @@ -89,7 +89,7 @@ (for ((n (list* 1 2 5 (let loop ((n 10)) - (if (>= n 3000) + (if (>= n 30000) '() (cons (inexact->exact (round n)) (loop (* n (sqrt (sqrt 2))))))))