#data.random の fixnums ですが、 integers-between$ が inclusive なので +1 はいらないんじゃないでしょうか。
#diff --git a/lib/data/random.scm b/lib/data/random.scm
index 2146480..56adf6d 100644
--- a/lib/data/random.scm
+++ b/lib/data/random.scm
@@ -101,7 +101,7 @@
(^[] (+ (%rand-int range) lb))))
;; API.
-(define fixnums (integers-between$ (least-fixnum) (+ (greatest-fixnum) 1)))
+(define fixnums (integers-between$ (least-fixnum) (greatest-fixnum)))
(define int8s (integers$ 256 -128))
(define uint8s (integers$ 256))
(define int16s (integers$ 65536 -32768))#そうですね。仕様を途中で変えたときに変え忘れたっぽい。
Gauche > Archives > 2013/08/18