This is the mail archive of the guile@cygnus.com mailing list for the guile project.
| Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
|---|---|---|
| Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
There is an error in the code I sent, change
the make-object macro to:
(define make-object
(procedure->macro
(lambda (exp env)
`(let ((%%object%% (make-module 16 (append ,(cadr exp) (list
(current-module))))))
(eval-all-in-module ',(cddr exp) %%object%%)
%%object%%))))