まだScheme暦（というかLisp暦）が浅いのでよくわからないのですが
パッケージシステムってファーストクラスである必要があるんですか？
;(define (my-packages sym)
; (begin (define (foo)
; (display "hello,world")
; (newline))
; (define (bar x y)
; (+ x y)))
; (case sym
; ((foo) foo)
; ((bar) bar)
; (else 'UNKNOWN)))
みたいなのじゃダメですか？
（遅いし束縛が取得できないのでset!とかできませんけど）