set random-number generator for user program

svn: r1398
2005-11-24 18:12:31 +00:00 · 2005-11-24 18:12:31 +00:00 · 11f4c3a661
commit 11f4c3a661
parent 3064b59ed0
1 changed files with 3 additions and 1 deletions
--- a/collects/drscheme/private/eval.ss
+++ b/collects/drscheme/private/eval.ss
@ -165,6 +165,8 @@
        
        (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)