[functional tests] Remove dependency on the ThunderChez library.
I've just moved the relevant code into the functional-tests dir.
This commit is contained in:
30
functional-tests/srfi/s27/random-bits.sls
Normal file
30
functional-tests/srfi/s27/random-bits.sls
Normal file
@@ -0,0 +1,30 @@
|
||||
;; Copyright (c) 2009 Derick Eddington. All rights reserved.
|
||||
;; Licensed under an MIT-style license. My license is in the file
|
||||
;; named LICENSE from the original collection this file is distributed
|
||||
;; with. If this file is redistributed with some other collection, my
|
||||
;; license must also be included.
|
||||
|
||||
#!r6rs
|
||||
(library (srfi s27 random-bits)
|
||||
(export random-integer
|
||||
random-real
|
||||
default-random-source
|
||||
make-random-source
|
||||
random-source?
|
||||
random-source-state-ref
|
||||
random-source-state-set!
|
||||
random-source-randomize!
|
||||
random-source-pseudo-randomize!
|
||||
random-source-make-integers
|
||||
random-source-make-reals)
|
||||
|
||||
(import (rnrs)
|
||||
(rnrs r5rs)
|
||||
(only (srfi s19 time) time-nanosecond current-time)
|
||||
(srfi s23 error tricks)
|
||||
(srfi private include)
|
||||
)
|
||||
|
||||
(SRFI-23-error->R6RS "(library (srfi s27 random-bits))"
|
||||
(include/resolve ("srfi" "s27") "random.ss"))
|
||||
)
|
Reference in New Issue
Block a user