This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
In my searches for a fast object-system for Guile - to support a little project that I am playing with -I took a look at Meroon. Tiny-clos compiled/or not is just too slow. unfortunatley : gtk> (load "meroon.guile") gtk> (load "meroon.scm") gtk> (load "exodus.scm") ******************* Meroon Syntax ********************* Occurred in: instantiate Reason: This field should be initialized Hint[0]: #<Mono-Field! Field.class-number> Backtrace: 3* [#<procedure (o)> ... 4* [register-class (3 . 49) #(3 (???) (???) ...) ... ... 5* [list ... 6* (instantiate Mono-Field :name ...) 7* [instantiate (instantiate Mono-Field :name ...) (#<compiled-closure #<primitive-procedure make-module_cl10_clproc0>>)] 8* [copy-tree ... 9* [apply #<procedure (class-name . parms)> (Mono-Field :name (quote method-finder) ...)] 10 [#<procedure (class-name . parms)> Mono-Field :name ...] ... 11 [process-instantiation #(3 Mono-Field 9 ...) (:name (quote method-finder) :immutable? ...)] 12 (let* ((fields #) (class-name #) (contents #)) (if (and # #) (let # #) ...)) 13* [process-initialization (#(9 #t immutable? ...) #(9 #t name ...) #(9 #f class-number ...) ...) (:name (quote method-finder) :immutable? ...) ...] 14 (letrec ((iterate #)) (iterate fields parms)) ... 15 [cons (1 #t) ... 16* [#<procedure (fields parms)> (#(9 #t name ...) #(9 #f class-number ...) #(9 #t initialized? ...) ...) (:name (quote method-finder) :initialized? ...)] 17 (if (pair? fields) (finder (car fields) parms ...) ...) ... 18 [cons (1 (quote method-finder)) ... 19* [#<procedure (fields parms)> (#(9 #f class-number ...) #(9 #t initialized? ...) #(9 #f initializer ...) ...) (:initialized? #t :path ...)] 20 (if (pair? fields) (finder (car fields) parms ...) ...) ... 21 [error_clproc0 meroon Error ...] 22* [gsubr-apply #<compiled-closure #<primitive-procedure gsubr-apply>> misc-error ...] ERROR: In procedure gsubr-apply in expression (error within msg ...): ERROR: meroon "Error" (#(18 Syntax instantiate "This field should be initialized" 1 #(9 #f class-number 8 #t (???) 1 2))) gtk> Meroon loads quite happily - but when you try to initialise the basic set of classes - Bang. My config : MeroonV3-98Feb09 guile-19980611 guile-gtk-0.10 hobbit-1.3 I cannot drop back to guile-1.2 because I rely on other packages that seem to need a recent snapshot. I would be very grateful to hear from anyone who has Meroon working with a recent snapshot - and would worship them if they had succeeded in getting it to compile using hobbit. Thanks for your time, Jules