Re: namespaces, goops, etc.

[Mikael Djurfeldt]

"Lars J. Aas" <address@hidden> writes:

> I can imagine it could be useful with local generic methods in
> certain circumstances...

(use-syntax (ice-9 syncase))
(use-modules (oop goops))

(define-syntax let-generic
  (syntax-rules ()
    ((let-generic name ((formals method-body ...) ...) body ...)
     (let ((name (make-generic)))
       (add-method! name (method formals method-body ...)) ...
       body ...))))

(define (foo)
  (let-generic foo ((((x <number>)) (+ 1 x))
                    (((x <string>)) (string-append x x)))
               (list (foo 1) (foo "*"))))