[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Removal of SCM_UNBOUND

From: Mikael Djurfeldt
Subject: Re: Removal of SCM_UNBOUND
Date: Sun, 16 Apr 2006 00:03:01 +0200

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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]