[gambit-list] Compiling Meroon objects and initializers
misterrogerwilson at gmail.com
Sat Jul 9 07:49:11 EDT 2011
Thanks for the help, I'll try and clarify. I'm actually using Swank rather
than a REPL.
If I run my app, connect to it with Slime and evaluate the code below using
'slime-eval-region' then I can create instances of the my-object class using
(instantiate my-object), and each object has a unique object-id. I was
happy with that during the early stage of development. Now I'm trying to
speed things up so I've put the code below in a scm file, I generate C code
with 'gsc -link my_file.scm' and compile and link it in with my (OS X) app.
However when the Gambit setup function is called in my app I get the
*** ERROR IN | object| -- (Argument 1) NUMBER expected
(= #!unbound #!unbound 'get-next-global-id)
How can I convince Meroon to run the 'get-next-global-id ' function to
generate an object-id each time I instantiate an object in the same way as
when I was developing interactively?
On Sat, Jul 9, 2011 at 9:07 AM, Mikael <mikael.rcv at gmail.com> wrote:
> As for the error you encountered, can you please do ,be in the REPL to see
> exactly what it is that failed.
> Regarding how to make it work with a compiled file, can you please clarify
> what you mean by making it to work with a compiled file - i.e., what is it
> you are trying to achieve, and what part of it is it that you don't get to
> work currently?
> 2011/7/9 Roger Wilson <misterrogerwilson at gmail.com>
>> I have a basic Scheme question.
>> The following works as intended from my Swank REPL. How do I make it work
>> with a compiled file? I'm trying to create a Meroon object that has an
>> automatically created unique id each time one is created.
>> (define *global-id* 0)
>> (define (get-next-global-id)
>> (let ((current-global-id *global-id*))
>> (set! *global-id* (+ *global-id* 1))
>> (define-class my-object Object
>> ((= object-id :initializer get-next-global-id)))
>> When the Gambit setup function runs I get the error....
>> *** ERROR IN | object| -- (Argument 1) NUMBER expected
>> (= #!unbound #!unbound 'get-next-global-id)
>> Gambit-list mailing list
>> Gambit-list at iro.umontreal.ca
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the Gambit-list