File: random-bits.sps

package info (click to toggle)
chez-srfi 0.0%2Bgit20241031.b424440%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,608 kB
  • sloc: lisp: 25,299; sh: 326; makefile: 11
file content (20 lines) | stat: -rw-r--r-- 481 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!r6rs
;; Copyright 2010 Derick Eddington.  My MIT-style license is in the file named
;; LICENSE from the original collection this file is distributed with.

(import
  (except (rnrs) error)
  (rnrs r5rs)
  (srfi :23 error)
  (srfi private include)
  (srfi :27 random-bits))

(define eval 'ignore)
(define interaction-environment 'ignore)

(define ascii->char integer->char)

(include/resolve ("srfi" "%3a27") "conftest.scm")

(check-mrg32k3a)
(display "passed (check-mrg32k3a)\n")