From 11f4c3a66169e01aab13e2196b54b101bf615afc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 24 Nov 2005 18:12:31 +0000 Subject: [PATCH] set random-number generator for user program svn: r1398 --- collects/drscheme/private/eval.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/eval.ss b/collects/drscheme/private/eval.ss index 2cd1e49c56..0da86983b2 100644 --- a/collects/drscheme/private/eval.ss +++ b/collects/drscheme/private/eval.ss @@ -163,8 +163,10 @@ (for-each (λ (snip-class) (send (get-the-snip-class-list) add snip-class)) snip-classes) - (current-thread-group (make-thread-group)) + (current-thread-group (make-thread-group)) (current-command-line-arguments #()) + (current-pseudo-random-generator (make-pseudo-random-generator)) + (current-evt-pseudo-random-generator (make-pseudo-random-generator)) (read-curly-brace-as-paren #t) (read-square-bracket-as-paren #t) (error-print-width 250)