18 lines
323 B
Scheme
18 lines
323 B
Scheme
#lang scheme/base
|
|
|
|
(provide make-random-generator
|
|
random-generator-next
|
|
random-generator-split
|
|
random-integer
|
|
random-real)
|
|
|
|
(require srfi/9)
|
|
|
|
(define-syntax define-record-discloser
|
|
(syntax-rules ()
|
|
((define-record-discloser ?:type ?discloser)
|
|
(values))))
|
|
|
|
(require scheme/include)
|
|
(include "random.scm")
|