Hello Andy, > > david@capac:~/alto/projects/guile-tests/goops 15 $ guile > > GNU Guile 2.0.11.113-583a > > This version had bugs, as I tried to explain. Please update your > stable-2.0 and try again. Thanks :)
as an aside note, yesterday I did not pull, i thought all the comments
you
made on irc and here were about the refactoring you have been
working on, and which i pulled 2 days ago: next time, even if you think
it is not necessary, just to avoid [my] confusion, please tell me
explicitly
'david please pull, check, I made changes since the refactoring...'
thanks!
So, I just pulled/compiled your latest changes, but it is not working:
david@capac:~/alto/projects/guile-tests/goops/setter-inheritance-bug 25 $ guile
GNU Guile 2.0.11.114-649ec
Copyright (C) 1995-2014 Free Software Foundation, Inc.
Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.
Enter `,help' for help.
scheme@(guile-user)> ,use (oop goops)
scheme@(guile-user)> ,use (b)
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling ./b.scm
;;; compiling ./a.scm
;;; compiled
/home/david/.cache/guile/ccache/2.0-LE-8-2.0/usr/alto/projects/guile-tests/goops/setter-inheritance-bug/a.scm.go
;;; compiled
/home/david/.cache/guile/ccache/2.0-LE-8-2.0/usr/alto/projects/guile-tests/goops/setter-inheritance-bug/b.scm.go
scheme@(guile-user)> (set! (!width (make <b>)) 20)
$1 = 20
scheme@(guile-user)>
Cheers,
David
;; module a.scm starts here
(define-module (a)
#:use-module (oop goops)
#:export (<a>
!width))
(define-class <a> ()
(width #:accessor !width #:init-keyword #:width #:init-value 0))
(define-method ((setter !width) (self <a>) width)
;; here comes complex code, computing earth orbit and calling lower
;; level clutter internals, such as the <clutter-actor> layout...
(pk "this is <a> !width setter method, hello!")
(slot-set! self 'width width))
;; module ends here
;; module b.scm starts here
(define-module (b)
#:use-module (oop goops)
#:use-module (a)
#:export (<b>)
#:re-export (!width))
(define-class <b> (<a>))
;; module ends here
pgpLB_ZtPhHUm.pgp
Description: OpenPGP digital signature
