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