Re: ams-pers-scheme-0.01

[Alex Shinn]

>>>>> "rm" == rm  <address@hidden> writes:

    rm> On Tue, Dec 25, 2001 at 11:52:56AM +0900, Alex Shinn wrote:
    >> [...]  However, rather than downloading it directly, it might be
    >> nice if people downloaded
    >> 
    >> http://synthcode.com/code/gumm.scm

    rm> ... works fine and looks like a 'cool thing' ;-)

Great!  The 'cool thing' bit that is, it doesn't matter if it works so
long as it looks cool ;)

    rm> I think 'urandom.scm' needs to be changed like this:

    rm> (define-module (ams urandom) :use-module (ice-9 rw) :use-module
    rm> (srfi srfi-13))

    rm> otherwise 'string-fold' in line 30 will be unbound.

Thanks, fixed.  Hmmm... so how do you write a test for a random module?

(if (= (urandom 1.0) (urandom 1.0))
  (error "urandom is probably broken"))

-- 
Alex