Re: Removal of SCM_UNBOUND

[Mikael Djurfeldt]

On 4/15/06, Clinton Ebadi <address@hidden> wrote:
> guile> (use-modules (oop goops))
> guile> (define-class <foo> () (bar))
> guile> (define quux (make <foo>))
> guile> (slot-ref quux 'bar)
>
> Backtrace:
> In current input:
>    5: 0* [slot-ref #<<foo> a7cd00f0> bar]
>
> <unnamed port>:5:1: In procedure slot-ref in expression (slot-ref quux
> (quote bar)):
> <unnamed port>:5:1: Slot `bar' is unbound in object #<<foo> a7cd00f0>
> ABORT: (goops-error)
> guile> (slot-set! quux 'bar 5)
> guile> (slot-ref quux 'bar)
> 5
>
> Is there anything I am missing

(define x (if #f #f))
(slot-set! quux 'bar x)