Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05: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) (define (random-source-pseudo-randomize! s i j)
;; Pretty bad quality, upgrade after switch to better gen ;; Pretty bad quality, upgrade after switch to better gen
(define n1 (define n1
((random-source-make-integers i) m)) i) ;((random-source-make-integers i) m))
(define n2 (define n2
((random-source-make-integers j) m)) j) ;((random-source-make-integers j) m))
(define n3 (define n3
(abs (- n1 n2))) (abs (+ n1 n2)))
(random-source-state-set! s n3)) (random-source-state-set! s n3))
(define (random-source-randomize! s) (define (random-source-randomize! s)