1;; constructors.scm -- random function constructors
2;; Copyright (c) 2009 Alex Shinn.  All rights reserved.
3;; BSD-style license: http://synthcode.com/license.txt
4
5(define (random-source-make-integers rs)
6  (if (not (random-source? rs))
7      (error "not a random source" rs))
8  (lambda (n) (%random-integer rs n)))
9
10(define (random-source-make-reals rs . o)
11  (if (not (random-source? rs))
12      (error "not a random source" rs))
13  (lambda () (%random-real rs)))
14
15