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

Fix err calling (random-source-pseudo-randomize!)

Browse source 
Fixed this function to prevent an error when it is called. Unfortunately randon number generation is not very sophisticated yet, and needs improvement.
This commit is contained in:
Justin Ethier 2016-10-04 02:08:09 -04:00
parent 45accbf815
commit 1665ce9e98
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
srfi/27.sld
View file

@ -93,11 +93,11 @@
(define (random-source-pseudo-randomize! s i j)
;; Pretty bad quality, upgrade after switch to better gen
(define n1
((random-source-make-integers i) m))
i) ;((random-source-make-integers i) m))
(define n2
((random-source-make-integers j) m))
j) ;((random-source-make-integers j) m))
(define n3
(abs (- n1 n2)))
(abs (+ n1 n2)))
(random-source-state-set! s n3))
(define (random-source-randomize! s)