From 1665ce9e984fd61d6e1da07e13de85048f22b389 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 4 Oct 2016 02:08:09 -0400 Subject: [PATCH] Fix err calling (random-source-pseudo-randomize!) Fixed this function to prevent an error when it is called. Unfortunately randon number generation is not very sophisticated yet, and needs improvement. --- srfi/27.sld | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/srfi/27.sld b/srfi/27.sld index 2e13e91f..b5aa4362 100644 --- a/srfi/27.sld +++ b/srfi/27.sld @@ -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)