From fd54b803fc26ffe5701a0f62a117ec3ce71087e1 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 22 Feb 2017 15:56:22 -0700 Subject: [PATCH] Temporary definition of random-bytevector for 9.2 hosts. --- src/compiler/base/utils.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm index 05ca39e14..03a6a63f6 100644 --- a/src/compiler/base/utils.scm +++ b/src/compiler/base/utils.scm @@ -31,6 +31,13 @@ USA. ;;;; Miscellaneous +;; Temporary definition, for 9.2 hosts. +(define (random-bytevector n #!optional state) + (let ((env (->environment '(runtime random-number)))) + ((if (environment-bound? env 'random-byte-vector) + (access random-byte-vector env) + (access random-bytevector env)) n state))) + (define (three-way-sort = set set* receiver) (let ((member? (member-procedure =))) (define (loop set set* receiver) -- 2.25.1