eval question: where is my mistake ?

[David Pirotte]

where is my mistake ?


        (define clname (string->symbol "<test>"))
        (define slot (string->symbol "test-1"))
        (define slot-kw (string->symbol "#:test-1"))
        (define slots (list `(,slot #:accessor ,slot
                                    #:init-keyword ,slot-kw
                                 #:init-value #f)))

        (define (db-utils/build-db-class-1 class-name slot-defs)
          (let ((defclass-form 
                  (eval `(define-class ,class-name () ,@slot-defs))))
            defclass-form))


guile> (db-utils/build-db-class-1 clname slots)
ERROR: While evaluating arguments to list in expression (list (quote test-1) 
#:accessor ...):
ERROR: Unbound variable: #:test-1
ABORT: (unbound-variable)
guile>