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]

Meroon - bang !***@!??!



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