Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #326 - Use timer to seed pseudorandom numbers

Browse source
This commit is contained in:
Justin Ethier 2019-07-24 13:19:38 -04:00
parent f7607e47d6
commit 85751cda2b
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
CHANGELOG.md
View file

@ -13,6 +13,7 @@ Bug Fixes
- Fixed the MSYS2 build script and instructions, so it is possible to build on Windows again! - Fixed the MSYS2 build script and instructions, so it is possible to build on Windows again!
- Fixed `exit` to return the appropriate status code when a boolean is passed, per R7RS: - Fixed `exit` to return the appropriate status code when a boolean is passed, per R7RS:
- Modified `(srfi 27)` to use the timer to seed the pseudorandom number generator.
> If no argument is supplied, or if obj is #t, the exit procedure should communicate to the operating system that the program exited normally. If obj is #f, the exit procedure should communicate to the operating system that the program exited abnormally. > If no argument is supplied, or if obj is #t, the exit procedure should communicate to the operating system that the program exited normally. If obj is #f, the exit procedure should communicate to the operating system that the program exited abnormally.

2
srfi/27.sld
View file

@ -22,7 +22,7 @@
(begin (begin
;; Numbers taken from bsd random ;; Numbers taken from bsd random
;(define mult 1103515245) ;(define mult 1103515245)
(define incr 12345) (define incr (exact (current-second)))
(define m 536870912) (define m 536870912)
;; Cutting off seems like a good idea ;; Cutting off seems like a good idea
;(define cutoff 100) ;(define cutoff 100)