Welcome to the CHICKEN Scheme pasting service

Egg:
-----
(define the-db-ctx (make-parameter #f)) ; '(<handle> . <alist>)

(define (initialise #!key db-ctx)
  (if db-ctx     (set! the-db-ctx db-ctx)))
-----

App:

-----
(use egg)

(define db-ctx (make-parameter))

(initialise db-ctx: db-ctx)

(db-ctx (open-database ...))

...

<(calls to the egg)>
-----