; Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees. See file COPYING.

; Works off SRFI 27

(random-source-randomize! default-random-source)

(define *valid-random-string-chars*
  "$%&/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") ; valid symbol characters

(define (randomize-string! s)
  (do ((valid-count (string-length *valid-random-string-chars*))
       (size (string-length s))
       (i 0 (+ 1 i)))
      ((= i size))
    (string-set! s i
		 (string-ref *valid-random-string-chars*
			     (random-integer valid-count)))))
