Re: [Chicken-users] External procedures at runtime

[John Cowan]

felix winkelmann scripsit:
> *cough*

Thanks.  Here's a procedure with a pseudo-closure:

(define foo
  (letrec ((foo (extend-procedure
                  (case-lambda
                    (() (procedure-data foo))
                    ((x) (set-procedure-data! foo x) (void)))
                  (void))))
    foo))

-- 
A few times, I did some exuberant stomping about,       John Cowan
like a hippo auditioning for Riverdance, though         address@hidden
I stopped when I thought I heard something at           http://ccil.org/~cowan
the far side of the room falling over in rhythm
with my feet.  -- Joseph Zitt