"[EMAIL PROTECTED]" wrote:
>(define-generic   gee-gmp-oop-integer?)
>
>(let ((integer? integer?))
>  (define-method (gee-gmp-oop-integer? (o <number>))
>    (integer? o)))
>
>(set! integer? gee-gmp-oop-integer?)

It works if I do this:

     (define saved-integer? integer?)
     (define-generic integer?)
     (define-method (integer? (o <number>))
       (saved-integer? o)))

     (export integer?)

--
Marco Maggi




_______________________________________________
Guile-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/guile-user

Reply via email to