Hi,<br><br>I have a basic Scheme question.<br><br>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. <br>
<br>(define *global-id* 0)<br>(define (get-next-global-id) <br> (let ((current-global-id *global-id*)) <br> (set! *global-id* (+ *global-id* 1)) <br> current-global-id))<br><br>(define-class my-object Object <br>
((= object-id :initializer get-next-global-id)))<br><br><br>When the Gambit setup function runs I get the error....<br><br>*** ERROR IN | object| -- (Argument 1) NUMBER expected<br>(= #!unbound #!unbound 'get-next-global-id)<br>
<font color="#888888">
<br><br>Roger.</font>