Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding type checks for random-source-make-*

Browse source
This commit is contained in:
Alex Shinn 2017-01-14 15:08:14 +09:00
parent f691ae6a76
commit 2735b36c87
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/27/constructors.scm
View file

@ -3,8 +3,12 @@
;; BSD-style license: http://synthcode.com/license.txt ;; BSD-style license: http://synthcode.com/license.txt
(define (random-source-make-integers rs) (define (random-source-make-integers rs)
(if (not (random-source? rs))
(error "not a random source" rs))
(lambda (n) (%random-integer rs n))) (lambda (n) (%random-integer rs n)))
(define (random-source-make-reals rs . o) (define (random-source-make-reals rs . o)
(if (not (random-source? rs))
(error "not a random source" rs))
(lambda () (%random-real rs))) (lambda () (%random-real rs)))