9 Jul
2011
9 Jul
'11
06:51
Hi, 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)) current-global-id)) (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) Roger.