guile 1.7 eval 'problem'

[David Pirotte]

Hi,

the following code that was working in guile 1.4.1
does not anymore in guile 1.7:


        ;; /usr/local/share/guile/alto/db-utils/db-tb-cl-mt.scm
        (use-modules (... ...))
        (use-modules (oop goops))
        (use-modules (... ...))

        ...
        ...
        (define-method (load-tuples&build-inst-1 (db-tb-cl-mt <db-tb-cl-mt>) 
args)
          (let* ((cl-name (cl-nme db-tb-cl-mt))
                 (make-form (eval `(make ,cl-name ,@args)
                                  (interaction-environment)
                                  )))
            make-form))
        ...
        ...
        ;; end-of-file
                
Here is the error message

        In /usr/local/share/guile/gtk-1.2/gtk.scm:
         156:  0* [apply #<procedure #f (row col event)> (0 0 #f)]
        In unknown file:
           ?:  1  [#<procedure #f (row col event)> 0 0 #f]
        In /usr/local/share/guile/alto/tactus/rent.scm:
            ...
         106:  2  (let ((project #)) (set! *rent/cur-proj* project) ...)
         110:  3* [update-class-instances-for-project # # #]
        In /usr/local/share/guile/alto/tactus/db-proj.scm:
          88:  4  (if pbar (let* (# #) (set! timer #) ...) ...)
          89:  5  (let* (# #) (set! timer #) ...)
          96:  6* [update-class-instances-for-project-1 #<<proj_refs> 8094f10>]
          79:  7  (let (# #) (update-class-instances *db-cha/tb-def* proj-ref 
...) ...)
          81:  8* [update-class-instances #<<db-tb-cl-mt> 8091540> P-REF21 ...]
        In /usr/local/share/guile/alto/db-utils/db-tb-cl-mt.scm:
         245:  9  (let* (# #) (if sql-opt #) ...)
            ...
         126: 10  (do ((results #) (i 0 #)) ((>= i ntuples) (let # # ...)) ...)
         133: 11* (do ((args #) (j 0 #)) ((>= j nattrs) (let* # # ...)) ...)
         136: 12  (let* (# #) (if idx-opt #) (set! results #) ...)
         137: 13* [load-tuples&build-inst-1 #<<db-tb-cl-mt> 8091540> (# 21621 # 
T833 ...)]
         116: 14  (let* ((cl-name (cl-nme db-tb-cl-mt)) (make-form (eval # #))) 
make-form)
         117: 15* [eval (make <chantiers> #:oid ...) #<directory (guile-user) 
8083b90>]
        In unknown file:
           ?: 16* (make <chantiers> #:oid ...)
        <unnamed port>: In expression (make <chantiers> #:oid ...):
        <unnamed port>: Unbound variable: make

what's wrong ? Is it (interaction-environment) ?

thanks
david