From 384995f77b2274e0c6978396797e1bf2e289c80d Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 26 Jul 1996 20:00:31 +0000 Subject: [PATCH] make random-state-tag define-integrable. --- v7/src/runtime/random.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm index 125a56b06..3102a9668 100644 --- a/v7/src/runtime/random.scm +++ b/v7/src/runtime/random.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: random.scm,v 14.15 1996/04/24 18:44:18 cph Exp $ +$Id: random.scm,v 14.16 1996/07/26 20:00:31 adams Exp $ Copyright (c) 1993-96 Massachusetts Institute of Technology @@ -99,7 +99,7 @@ MIT in each case. |# (fix:+ index 1)))) (set-interrupt-enables! mask) (flo:/ element b.))))) - + (define (make-random-state #!optional state) (let ((state (if (default-object? state) #f state))) (if (or (eq? #t state) (int:integer? state)) @@ -107,7 +107,7 @@ MIT in each case. |# (congruential-rng (+ (real-time-clock) 123456789))) (copy-random-state (guarantee-random-state state 'MAKE-RANDOM-STATE))))) - + (define (initial-random-state generate-random-seed) ;; The numbers returned by GENERATE-RANDOM-SEED are not critical. ;; Except for the explicitly disallowed sequences, all other @@ -155,7 +155,7 @@ MIT in each case. |# (not (fix:= (vector-length object) 0)) (eq? (vector-ref object 0) random-state-tag))) -(define random-state-tag +(define-integrable random-state-tag ((ucode-primitive string->symbol) "#[(runtime random-number)random-state]")) (define-integrable (random-state-index s) (vector-ref s 1)) -- 2.25.1