From 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:28 -0800 Subject: Import Upstream version 2d2 --- random.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'random.scm') diff --git a/random.scm b/random.scm index dc4c3fb..9f9ee98 100644 --- a/random.scm +++ b/random.scm @@ -1,9 +1,9 @@ ;;;; "random.scm" Pseudo-Random number generator for scheme. -;;; Copyright (C) 1991, 1993, 1998, 1999 Aubrey Jaffer. +;;; Copyright (C) 1991, 1993, 1998, 1999 Aubrey Jaffer ; -;Permission to copy this software, to redistribute it, and to use it -;for any purpose is granted, subject to the following restrictions and -;understandings. +;Permission to copy this software, to modify it, to redistribute it, +;to distribute modified versions, and to use it for any purpose is +;granted, subject to the following restrictions and understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. @@ -84,7 +84,7 @@ ;;@args ;;Returns a new copy of @code{*random-state*}. (define (copy-random-state . sta) - (copy-string (if (null? sta) *random-state* (car sta)))) + (string-copy (if (null? sta) *random-state* (car sta)))) ;;@body -- cgit v1.2.3