Scale up to 4000 for observe-some-*
This commit is contained in:
parent
23d5036095
commit
c4772a1dd2
|
@ -37,7 +37,7 @@
|
|||
(transition (+ count 1) '())]
|
||||
[_ #f]))
|
||||
0
|
||||
(gestalt-union (pub (server id))
|
||||
(gestalt-union ;; (pub (server id))
|
||||
(sub (client) #:level 1))))
|
||||
|
||||
(define client-action (spawn-client))
|
||||
|
@ -78,7 +78,7 @@
|
|||
#;(list 5)
|
||||
(list* 2 5
|
||||
(let loop ((n 10))
|
||||
(if (>= n 2000)
|
||||
(if (>= n 4000)
|
||||
'()
|
||||
(cons (inexact->exact (round n))
|
||||
(loop (* n (sqrt (sqrt 2))))))))
|
||||
|
|
|
@ -34,7 +34,7 @@
|
|||
(transition (+ count 1) '())]
|
||||
[_ #f]))
|
||||
0
|
||||
(assert (server id))
|
||||
;; (assert (server id))
|
||||
(assert (observe (client)))))
|
||||
|
||||
(define client-action (spawn-client))
|
||||
|
@ -75,7 +75,7 @@
|
|||
#;(list 5)
|
||||
(list* 2 5
|
||||
(let loop ((n 10))
|
||||
(if (>= n 2000)
|
||||
(if (>= n 4000)
|
||||
'()
|
||||
(cons (inexact->exact (round n))
|
||||
(loop (* n (sqrt (sqrt 2))))))))
|
||||
|
|
Loading…
Reference in New Issue