[Slib-discuss] Writing *.init-File

[address@hidden]

>
>
>  | 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