[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Slib-discuss] Writing *.init-File
From: |
address@hidden |
Subject: |
[Slib-discuss] Writing *.init-File |
Date: |
Wed, 07 Apr 2010 23:31:39 +0200 |
User-agent: |
Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.8) Gecko/20100323 Thunderbird/3.0.3 |
>
>
> | Date: Fri, 02 Apr 2010 17:07:08 +0200
> | From: "address@hidden" <address@hidden>
> |
> | Am 02.04.2010 03:18, schrieb Aubrey Jaffer:
> | > | Date: Thu, 01 Apr 2010 22:24:48 +0200
> | > | From: "address@hidden" <address@hidden>
> | > |
> | > | I have tried it : I needed to do some modification (e.g. my Scheme
> | > | does not offer "rational?").
> | >
> | > The only numbers which aren't `rational?' have non-zero imaginary
> | > part.
>
> | Ok. So far I fixed the missing test by setting (define rational?
> | #f) in myscheme.int. I did the same for complex? and had to
> | modify the load-compiled function. Is there a better way to do
> | this than setting rational? to false?
>
> If you have non-real numbers:
>
> (define (rational? z) (and (number? z) (zero? (imag-part z))))
>
Thanks, that worked.
> Otherwise:
>
> (define rational? number?)
>
The problematic part of require.scm ist the following cond. This is
throwing my error:
(cond
((slib:provided? 'srfi-0)
(slib:provide 'srfi-59)
(slib:provide 'srfi-96)
(do ((idx 0 (+ 1 idx))
(srfis (symbol->string 'srfi-)))
((> idx 150))
(let ((srfi (string->symbol (string-append srfis (number->string idx)))))
(if (slib:eval `(cond-expand (,srfi #t) (else #f)))
(slib:provide srfi))))))
More detailed, the following expression is making trouble:
(slib:eval `(cond-expand (,srfi #t) (else #f)))
Error: eval: unbound variable
Error Object: env
I am not shure what the problem is and how to solve it. Ideas?
Thanks Bastian