Re: [Chicken-users] tinyclos

[Shawn Rutledge]

On Tue, May 26, 2009 at 4:04 AM, felix winkelmann <address@hidden> wrote:
> I have imported an initial try at porting tinyclos to chicken 4 in
> release/3/tinyclos/trunk. Running tinyclos-examples.scm gives

I think you meant release/4/tinyclos/trunk

2009/5/26 Peter Bex <address@hidden>:
> I had a quick look, and I'm embarassed to say I ran into this
> problem before but forgot to report it.
> The (define-syntax (foo ...) ..) form doesn't work.  Change every
> occurrence of that to (define-syntax foo (lambda (...) ..) and you'll
> get further.  I attached a patch that does exactly that.
>
> Look at the generated import.scm file; it looks like er-macro-transformer
> is renamed.  This would be correct, except that er-macro-transformer is
> treated "specially" I think? (in that it is treated more like a magic
> symbol rather than an actual procedure that is named er-macro-transformer)

The patch itself doesn't fix the error when running
tinyclos-examples.scm, but so far I don't understand what's wrong
either.

Error: call-next-method: no methods left: #<procedure (f_3870 . args725)>

Making "no methods left" in call-next-method to be nonfatal (printf
instead of throwing an exception), results in something else:

add-global-method #<unbound value> initialize (#<class pos> #<class
top>) #<procedure (? call-next-method pos initargs)>
initialize call-next-method
call-next-method: no methods left
initialize call-next-method
call-next-method: no methods left
call-next-method: no methods left
add-global-method #<unbound value> pos-x (#<class #<unspecified>>)
#<procedure (? call-next-method pos)>
call-next-method: no methods left
call-next-method: no methods left

Error: (length) bad argument type - not a proper list: #<unspecified>

        Call history:

        <syntax>                (quote y)
        <eval>          (vector (quote x))
        <eval>          (vector (quote y))
        <eval>          (make <class> (quote name) (quote <pos>)
(quote direct-supers) (list <object>) (quote direct-slots) ...
        <eval>          (list <object>)
        <eval>          (list x y)
        <eval>          (tinyclos#add-global-method (##core#global-ref
pos-x) (quote pos-x) (#%list <pos>) (lambda51 (call-n......
        <eval>          (#%list <pos>)  <--