set random-number generator for user program

svn: r1398
This commit is contained in:
Matthew Flatt 2005-11-24 18:12:31 +00:00
parent 3064b59ed0
commit 11f4c3a661

View File

@ -163,8 +163,10 @@
(for-each (λ (snip-class) (send (get-the-snip-class-list) add snip-class)) (for-each (λ (snip-class) (send (get-the-snip-class-list) add snip-class))
snip-classes) snip-classes)
(current-thread-group (make-thread-group)) (current-thread-group (make-thread-group))
(current-command-line-arguments #()) (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-curly-brace-as-paren #t)
(read-square-bracket-as-paren #t) (read-square-bracket-as-paren #t)
(error-print-width 250) (error-print-width 250)