Re: [Slib-discuss] Writing *.init-File

[address@hidden]

Am 08.04.2010 03:39, schrieb Aubrey Jaffer:
>  | Date: Wed, 07 Apr 2010 23:31:39 +0200
>  | From: "address@hidden" <address@hidden>
>  | 
>  | > ...
>  | > If you have non-real numbers:
>  | >
>  | > (define (rational? z) (and (number? z) (zero? (imag-part z))))
>  | >   
>  | Thanks, that worked.
>  | 
>  | 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?
>
> Does your implementation have one-argument eval or two-argument eval?
> `slib:eval' should take only a single argument.  If your
> implementation has only two argument eval, then change 
>
>   (slib:eval `(cond-expand (,srfi #t) (else #f))) 
>
> to
>
>   (eval `(cond-expand (,srfi #t) (else #f))
>       (interaction-environment))
>
> If you implementation has no eval, than remove the whole COND
> expression above and remove 'srfi-0 from the slib:features list.
>
>   
Ok have that. I redefined my eval. Now there are troubles with
cond-expand. srfi-0 is loading and afterwards set to be available but
cond-expand is not available?